Top 10k strings from Logic Games Collection (1995)(V. Minevsky)(ru).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Demos & Games / Sinclair ZX Spectrum - Compilations - Games - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
44 :.SETV:.CLSV
37 xxxxxxxxxxxxxxx
26 888888888888888888888888
20 UUUUUUUUU@
18 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
17 GGGGGGGGGGGGGGGG
17 ;" ";
12 zzzzzzzzzzzzzzz
12 .SL8V:.ATLV
12 "18":.COL=
8 ;" "
7 |xxxxxxxxxxxxxxx
6 UUUUUUUUUW
6 ;" 2 - EXIT ";
6 ;" 1 - PLAY ";
6 ;" ";
6 33333333334
5 Gxxxxxxxxxxxxxxxxx
5 GAT,VAT;" "
5 ;"2 - EXIT";
5 62464,3072
5 62464,1024
5 58820,3642
5 16384,6912
5 (gat+Gz),(vat+Vz);"
5 ((((((((((((((((((
5 "54":.PTBL:
4 zxxxxxzzzxxzzzxxzzzxxzzzxxzzzxxxxxx
4 step=step+1
4 ```````xxxxxxxxxxxxxx
4 UUUUUUUUUU_
4 UUUUUUUUUUW
4 S$="b u d e t.":
4 R(Gz,Vz)=9
4 A(POR,L)=0
4 ;"<1 OR 2>"
4 ;"1 - PLAY";
4 :.ROW=(GPER-
4 "6":.SPN=X:.PTBL:
4 "53":.PTBL:
4 *********************
3 x+fo,y+tw;e$
3 w=x+(j$(o,y)>j$(ol)
3 w pomo}x igra`}emu w kribedv ============================ w igre ispolxzuetsq polnaq ko-loda kart - 52 lista. star-{instwo kart sledu`}ee: k, d, w,10, . . . 3, 2, t. kavdaq kartaimeet swoe dostoinstwo. wse fi-gury i desqtka - po 10 o~kow,pro~ie - po nominalu, tuz - 1. wsq igra sostoit iz gejmow.gejm zakon~en, kogda kto-to na-beret 121 o~ko. pobeditel` wgejme zas~itywaetsq odno o~ko,esli ego protiwnik nabral bolee61 o~ka i dwa o~ka, esli totnabral menx{e. dlq pobedy w igrenado nabratx uslowlennoe koli-~estwo o~kow, oby~no 6 ili 12. s d a ~ a. 1. kavdomu sdaetsq po 6 kart. 2. kavdyj ostawlqet sebe po 4karty, a po dwe karty sbrasywaetna stol. tak na stole obra -zowalasx e}e odna ruka s 4 kar-tami - |tu ruku nazywa`t krib.3. posle snosa kriba protiwnik'srezaet' kolodu i sda`}ij otk-rywaet werhn`` kartu, kotor
3 ostp=ostp-1
3 j$(op,tw)>"
3 j$(op)>j$(ol)
3 iffffb&ffffffffffd
3 ffffffffffd
3 cd=tw*(t>on
3 a$(on)=("3"
3 VAT=(VAT-1
3 UUUUUUUUUU
3 T(GPER)=X:
3 S$="d a.":
3 R(K)=R(K)-2
3 PLAYER=ZX:
3 A(POR,L)>100
3 ;" <1 or 2> ";
3 ;" <1 OR 2> ";
3 )=" ":
3 ):.COL=(L*4
3 "4"):.SPN=
3 "14";" "
3 "10":.ROW=
3 """""""""#
2 zzxxxzzzzxzzzzxxzzzxxzzzxxzzzxxxxzz
2 zdesx wywodim
2 zdesx obwedem ramkoj
2 zawer}enie partii
2 zakon~ilasx koloda
2 y$(fo,fo):
2 y$(a,tw)="5"
2 y$(a)="100"+
2 xxxxxxxxxxxxxxxxxx
2 x+tw,y+tw;e$;
2 wywod karty igroka
2 wywod hoda na |kran
2 w=y+(j$(o,3
2 v$(x,y)>j$(ol,u)
2 t>fo;f$(tw);
2 starik molodec`nec ded
2 pokaz kart ZX *********
2 perewod ~isla
2 ostz=ostz-1
2 on;"Hand no.";h;
2 nt+d(k)<23
2 neposredstwenno hod igroka.prowerka-estx li hod *******
2 na~alo igry
2 na~alo PLAY
2 me}aem karty *********
2 kto-to wyigral ( 101 )
2 klzx=klzx1:
2 klzx=klzx1
2 j$(q,tw)>"
2 j$(or)<e$(y)
2 j$(op,x)=e$(x))
2 j$(o,y)>j$(ol,y)
2 j$(o,y)>a$(y))+(j$(o,3
2 j$(o,y)>a$(y)
2 j$(o,x)=e$(x)
2 j$(o,w)>a$(y)
2 j$(o)>j$(ol)
2 j$(m,a(m)):
2 j$(l)=j$(l,
2 hod wybrannoj kartoj
2 h$(tw-a)<"1"
2 gat,vat;"+"
2 gat,vat+l;"
2 gap,vap;"+"
2 beret iz kolody /ZX/
2 berem iz kolody *******
2 a(op-n+t))
2 a(l)=a(l)-on:
2 a$(y)>e$(fo)
2 a$(x)=s$(t)
2 a$(tw)=r$(t)
2 a$(tw)=" "
2 a$(on)=("P"
2 a$(on)=("6"
2 a$(on)="R"
2 a$(on)="N"
2 a$(on)="D"
2 ```````xXXXXXXXXXXXXx
2 X$=R$(A(X)):
2 V(G)=V(G)+1
2 V(G)=(V(G)+1
2 UUUUUUU\DDD]D_
2 UUUUUUUUUUUU
2 UUUUUU=UUUUU_
2 T(GPER)=X:.COL=
2 T(G)=T(G)+1
2 T(G)=(T(G)+1
2 SZ8=(SZ8+1
2 SSS=(SSS+1
2 SPM=(SPM+1
2 SP8=(SP8+1
2 S=(S+D*R):
2 S(IND,K)=0
2 S(G,V)=KHZ
2 S(G,V)=K(G,V)
2 S$="o b r q } e { x.":
2 S$="n e t.":
2 R(V)=S(K,L):
2 QsQsQsQsQsQsQsP
2 POR=POR+ST:
2 PLAYER=MAN:
2 PLAYER=MAN
2 P(S8)=K(K,L):
2 P(K)=P(K+1
2 P(Gz,Vz)=7
2 O(INF)=POR
2 N$(POR)=O$(POR)
2 M(k)=K(L,m):
2 M(k)=K(G,V):
2 KHZ=M(SSS)
2 KHV=M(SSS)
2 KH=M(SSS):
2 K(G,V)=P(k)
2 J.D888CRIKLOBRI*21MOBINSMINCCHCLI*15GEOC
2 HOD=S(IND,VU)
2 HOD=S(IND,POR)
2 GAT,VAT;"+"
2 DDDDDDDDDDDDDDDDDDDD
2 C=\"B\z2D\
2 B$= "na igrowoj doske s raznocwetnymikletkami wystawlqetsq po 4 fi{kidlq was (blivnie) i kompx`tera.zada~a - prowesti do protiwopo-lovnogo kraq doski swoi fi{kiili sdelatx kak movno bolx{e ho-dow. fi{ka movet bytx prodwinutana kletku wpered pri uslowii,~tocwet kletki pered \toj fi{kojsowpadaet s cwetom odnoj iz trehkletok pered kakoj-libo iz fi{ekprotiwnika, krome ~ernoj kletki.":
2 A(gm,vm)=1
2 A(POR,L)>0
2 A(POR,L)<100
2 A(POR,K)=0
2 A(POR,K)<P
2 A(Gp,Vp)=9
2 A(Gm,Vm)=1
2 ;W$(NOMER)
2 ;A2;" mon.";
2 ;"wybiraem";
2 ;"wa{ ";
2 ;"w s t a w x t e";
2 ;"podovdite";
2 ;"pobeda!"
2 ;"p r i z : ";WIN
2 ;"n o w o j";
2 ;"RESTART? <Y/N>"
2 ;"---------------"
2 ;" u}li za ";
2 ;" kolodoj ";
2 ;" k a r t "
2 ;" ":
2 ;" "
2 ;" "
2 ;" ";
2 ;" ":
2 ;" "
2 ::::::::::::::::::::::::
2 :.SPN=X:.PTBL:
2 :.SPN=R(K):.PTBL
2 :.SPN=P(L):.PTBL
2 :.SPN=KHV:.PTBL
2 :.SPN=KH:.PTBL
2 :.SPN=K(SP,K):.PTBL:
2 :.SPN=HOD:.PTBL
2 :.SETV:.ROW=
2 3333333334
2 00000000008(((
2 000000000000(((
2 .SR8V:.ATRV
2 .SPN=P(SPM-1
2 -A(POR,NOM)):
2 -A(POR,L))*2
2 -(SP-SPM))
2 ,ze;l$;l$;
2 ,y+on;e$;" ";e$;
2 ,y+on;e$;" ";e$:
2 +x,(y(k,x)+6
2 +(INF-P)+1
2 +"W\#"S\"K\6
2 ***prowerka wosxmerok
2 ***********
2 )>j$(ol,y)
2 )=A(POR,L)
2 )="SPECCY"
2 )="PLaYER"
2 )=" wosxmerki ":
2 )=" qponskij durak ":
2 )=" morskoj boj ":
2 )=" m i n e r ":
2 )=" kto perwyj ? ":
2 )=" kribedv ":
2 )=" klondajk "
2 )=" geomantiq "
2 )=" cwetnye linii":
2 )=" cwetnye kletki "
2 )=" b r i d v ":
2 )=" ** 21 ** ":
2 )=" * 1 5 * ":
2 );F$(N(K))
2 );" ";m$(4
2 );" ";m$(2
2 ):.COL=(K*
2 (k-tw*(k>tw)):
2 (j$(o,x)=e$(x)
2 (gat+Gz),(vat+Vz);"*":
2 (X-T(GPER)=
2 (SUMP-SUMZ)
2 (S+A(POR,5
2 (GAS,VAS)=
2 (GAP,VAP+M)
2 (((((((((((((((
2 #"a\"c\"e\>82
2 "e\"a\"c\*B\
2 "J.D","888","CRI","KLO","BRI","*21","MOB","INS","MIN","CCH","CLI","*15","GEO"
2 "9";" hod! ":
2 "6";" ":
2 "6":.SETV:
2 "54":.PTBL:.COL=
2 "5";" ":
2 "4";" "
2 "4":.SETV:.CLSV:
2 "29";" ";ostz
2 "2":.SETV:
2 "10":.HGT=
2 "10":.COL=
2 "1";" ";ostp
2 """"""""""?
2 qponskij durak wosxmerki kribedv klondajk b r i d v ** 21 ** morskoj boj kto perwyj ? m i n e r cwetnye kletki cwetnye linii * 1 5 * geomantiq
2 R.Wheen 1984
2
2
1 ~islo kart w kolode
1 ~et/ne~et w otwetah****
1 }y}x}x}xyx}z}z}
1 |~~~|<|f|<
1 zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzxxxzzzzxxxzzzzzzzxxzzzzzzzzzzzzzxzxzzzxzzxzzzzzzxxxxzzzzzzzzzzzzxzzzzzxzzxzzzzzzxxxzzzzzzzzzzzzzxzzzzzxzzxzzzzzzxzzzzzzzzzzzzzzzxzzzzzzxxxzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzxxzzzxxxxzzzzzzzzzzzzzzzzzzzzzzxxxxzzxxxxzzzzxxzzzzzzzzxxzzzzzzzzzxzzxxxzzzzxxxxzzzzzzxxxxzzzzzzxxzzzxzzzzzzxxxxzzzzzzxxxzzzzzzxzzzzzxzzzzzzxxxxzzzzzzxzzzzzzzzxxxxzzxzzzzzzzxxxzzzzzzzxxxzzzzzxxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxx88888888888888888888888888888888888888888888888888888888888888883
1 zzzzzzzzzzzzzzz2
1 zzzzzzzzzzzzzzz10
1 zzzzzzzzzzzzzzz0
1 zzzzzzzzzzzzzzz/
1 zzzzzzzzzzzzzzz.
1 zzzzzzzzzzzzzzz-
1 zzzzzzzzzzzzzzz,t
1 zzzzzzzzzzzzzzz+
1 zzzzzzzzzzzzzzz*\
1 zzzzzzzzzzzzzzz)
1 zzzzzzzzzzzzzzz&%
1 zzzzzzzzzzzzzzz%
1 zzzzzzzzzzzzzzz$l
1 zzzzzzzzzzzzzzz$
1 zzzzzzzzzzzzzzz#
1 zzzzzzzzzzzzzzz"T
1 zzzzzzzzzzzzzzz"
1 zzzzzzzzzzzzzzz!p
1 zzzzzzzzzzzzzzz!
1 zzzzzzzzzzzzzzz <
1 zzzzzzzzzzzzzzz
1 zzzzzzzxxzzzzzz&,
1 zzzzzzxxxzzzzzz3H
1 zzzzzzxxxzzzzzz
1 zzzzzzxxxxxzzzz(D
1 zzzzzzxxxxxzzzz
1 zzzzzzxxxxxxzzx'
1 zzzzzzxxxxxxzzx
1 zzzzzzxxxxxxxxx5
1 zzzzzzxxxxxxxxx4
1 zzzzzzxxxxxxxxx#
1 zzzzzzxxxxxxxxx
1 zzzxxzzzzxxzzzxxzzzxxzzzxxzzzxxxxxx
1 zzxxxzzzzxzzzzxxxxzxxxxzxxzzzxxxxxz
1 zzxxxzzzzxzzzzxxxxxxxxxxxxzzzxxxxxz
1 zzxxxzzzzxxzzzxxzzzxxzzzxxzzzzxxxxz%
1 zzxxxzzzzxxzzzxxzzzxxzzzxxzzzxxxxxz
1 zzxxxxzzzxxzzzxxzzzxxzzzxxzzzzxxxzz
1 zzxxxxzzzxxzzzxxzzzxxzzzxxzzzxxxxxx$
1 zzxxxxzzzxxzzzxxzzzxxzzzxxzzzxxxxxx#f
1 zzhhhhhhhzzhhhhhhhzzhhhhhhhzziiiiiiizzhhhhhhhzziiiiiii
1 zxxxxxzzzxxzzzxxzzzxxzzzxxzzzxxxxxx"&
1 zxxxxxzzzxxzzzxxzzzxxzzzxxzzzxxxxxx!
1 zxxxxxzzzxxzzzxxzzzxxzzzxxzzzxxxxxx
1 ze;" led. Enter ";(b$(k,
1 ze;" holding ");" ";
1 ze;" Please wait while the computer assesses and analyses the hands.":
1 ze;" ";(b$(k,
1 ze;" This is your hand as
1 ze,tw,st,fo,on,n,h,u,gg,o$,p$,n$,q$,r$,s$,t$,u$:
1 ze,f,f,f,f,f,f,f,p$
1 ze)+("E/W"
1 zapolnitx matricu
1 zap.bank ili stawka***
1 z>fo)+("4"
1 z=fo*y-fo+x:
1 z=a(op-n+t):
1 z(z);z$(z):
1 z(fo*j-fo+k)=f(v):
1 z$(fo*j-fo+k)=a$:
1 y>fo))*x+10
1 y=y(k,on):
1 y=x-(x>on):
1 y=k+x-v+fo*(v
1 y;" trick";"s"
1 y,z;(e$(on)
1 y)=j$(ol,x)+j$(op,x)
1 y)+j$(op,x)
1 y(n)=y(n)-30
1 y(n)=y(n)+fo*e+8
1 y(n)=y(n)+(f+10
1 y(n)=y(n)+(40
1 y(k-on+fo*(k=on),t)=y(k-on+fo*(k=on),t)-z:
1 y(k,t)=y(k,t)-z+1.4
1 y$(x)="0003":
1 y$(u)="0003":
1 y$(t-(t>fo),fo))=
1 y$(t-(t>fo),fo)
1 y$(t-(t>fo),
1 xzxxxzzzzxzzzzxxzxxxxzxxxxzzzzxxxzz
1 xy=((x-y)/5
1 xxxxxxxxxxxxxxxxxxxxx
1 xxxxxxxxxxxxhhhxxx
1 xxxxxxxxkkkkkxxkkkkkxxkkkkkxxxxxxxx(
1 xxxxxxkkkxxkkkxxkkkxxkkkxxkkkxxxxxx'f
1 xxxxxkkxxkkxxkkxxkkxxxxx6j
1 xxxxxkkxxkkxxkkxxkkxxxxx'
1 x@z!y`x 2J
1 x?332|x&ff
1 x-on,v;j$(m,z);
1 x-on)+g$(x+on
1 x+tw,y+on;e$;" ";e$;
1 x+on,y+on;e$;" ";e$;
1 x+fo,y+on;e$;" ";e$:
1 x 80}@}L}`=p
1 x ( !&x`x x
1 x priwy~ku, w kavdom, pri perwom ve sblivenii, h o r o { e e.":
1 wzqto kart iz kolody
1 wy}lo po masti
1 wywod masti pri wybore
1 wywod kart
1 wybor karty w pole ****
1 wybor hoda w osn. pole
1 wybiraem s obgonom ili bez obgona ***************
1 wwod dannyh bez input
1 warianty polq**********
1 warianty klawi}i
1 w=x+(j$(o,y)>a$(y)):
1 w=e(on)*e(tw)*e(3
1 w-on)+j$(l,w+on
1 w$="AAAAAAAAAA":
1 vzr=Vz+min:
1 vzl=Vz-min:
1 vystrel igroka
1 vob=Y(agv+1
1 vob1=Y(agv+1
1 v-on)+c$(b(w),v+on
1 v$(x,y)>j$(ol)
1 v$(w,tw)=c$(b(w),v)
1 v$(fo,tw):
1 umb=(kol*2
1 ukazatelx fi}ki*******
1 u=e(w+on):
1 tw;"while the computer shuffles,"''
1 tw;"You have attempted to break intothis program: this is forbidden."''" The current deal has been"'
1 tw;"Rubber complete";
1 tw;"Dealer":
1 tw;"Congratulations";
1 tw*(e$(tw)="
1 tw)=j$(o,on)+j$(op,on))
1 tuz iz kolody
1 tot=minR*15
1 teperx prowerka
1 teku{ij s~et
1 t>fo;a$(tw):
1 t>fo)+e(b):
1 t>fo)+e(a):
1 t))+(j>12.6
1 s~itaem ~to wy}lo iz igry - masti
1 svar=svar+1
1 svar1=svar1+1
1 svar1<ostz-10
1 svar1<ostz
1 stot=step+1
1 step=step-1
1 st,ze;" Tricks ";
1 sortirowka kart igroka ************************
1 sortirowka kart igroka
1 sort A(2,...)
1 sna~ala dlinnu` mastx
1 smeemsq! ************
1 sledu`{ij hod**********
1 ris.NN fi}
1 rd=(e$="2"):
1 prowerka-sbil?*********
1 prowerka star. *******
1 prowerka konza partii
1 posle wybora 'Q'******
1 posle wybora '8'*********
1 pole ==========
1 perem. v osn.pole (II)
1 pereigratx,s~et sohranitx
1 peredwinem wwerh
1 p>tw)+s$(p):
1 p=(tv*r+10
1 p4=(e$="A"):
1 p4=(e$="4"):
1 p/pr.wariant hoda ZX***
1 p/pr.ostalasx w igre 1
1 p/pr.krug**************
1 p/pr.hod na |kran*****
1 p/pr.estx-li hod?(OB 2)
1 p/pr.daj 6
1 p/pr.bank fi}ek*******
1 p/pr.*******
1 p/pr. ne obgoni********
1 p/pr war.1-2**********
1 p$=("Vul:none"
1 otkrytz kartu
1 otkryto werhnee pole***
1 opredelitx ST
1 op=op+a(g+l,v1):
1 op=op+A(g1,v1+1
1 op=op+A(g1,v+l):
1 op=op+A(g1+1
1 op=fo*k-fo+w-(w>fo):
1 on;ze,on-aa
1 on;"W, S, or V?"
1 on;"To make your choice press A or B"
1 on;"To continue press C":
1 on;"Revoke";
1 on;"Press P for print-out, R to re-"'"play last hand, N for next hand"
1 on;"Press 4 if you want to play all",
1 on;"PRESS A KEY";
1 on;"Dealer:";o$(d)'
1 on;"C or D?"
1 on;"Bidding to restart":
1 on;"1, 2 OR 3?";
1 okon~anie partii
1 o(INN)=POR
1 o()=o+fo-st*(o>12
1 nt-K(Kol+1
1 nivnqq na pole A
1 ne stawim na swo`
1 ne po prawilam
1 na~alo po bolx}.~islu
1 na~alo partii
1 na~alo igry ZX ********
1 na~alo igry ZX
1 na~ali****************
1 navmite l`bu` klawi{u
1 name & score
1 na pole A ********
1 n<fo);s$(n);
1 mxv=X(n,l*2
1 mxg=X(n,l*2
1 minr=minr-1
1 minR=minR+1
1 matrica otwetow **************************
1 matrica kolody ***********
1 matrica kol
1 m$>on)+(600
1 m$>"F")+(100
1 m$="J")+(200
1 m$="F")+(400
1 m$="E")+(300
1 load ++++++++++++++++++
1 load "annot"
1 l=g(on)+g(3
1 l=(Gz-min)
1 l<ze);" win by ";
1 l(x),tw)="
1 l(x),on)="
1 l(t)-(t>fo):
1 kursor na kolode
1 krug 2,3,4****
1 klzx1=klzx1+1
1 kladem zakrytye********
1 k=k+i-fo*(k+i>fo):
1 k1=k1+on-fo*(k1>tw)
1 k(k),t)=y(
1 k(k),t)-z:
1 k$(v,tw)="
1 k$(b-tw,on)="D")
1 k$(b-tw,on)="D"
1 k$(b-tw)>"D"
1 k$(b)="Pass":
1 k$(b)="P":
1 j(k),t)=y(
1 j(k),t)<fo
1 j(k),t)+z+(w$(t+5
1 j$(v)=j$(v+st):
1 j$(q,on)="
1 j$(or,y)>e$(fo))))
1 j$(or,x)>e$(fo)
1 j$(op,y)>e$(fo)
1 j$(op,y)>e$(5
1 j$(op,x)>e$(3
1 j$(op,tw)<"
1 j$(op,on)=e$(3
1 j$(op)>v$(x,y)
1 j$(op)>j$(o)))
1 j$(op)>j$(o)
1 j$(op)>a$(y)
1 j$(op)<j$(ol)))
1 j$(op)<j$(ol))
1 j$(op)<e$(y)
1 j$(op)<e$(on))
1 j$(op)<a$(y))
1 j$(op)<a$(y)
1 j$(ol,y)=e$(5
1 j$(ol,u)=" "
1 j$(ol)<e$(y)
1 j$(o,y)>j$(or)):
1 j$(o,y)>j$(ol)
1 j$(o,y)<e$(3
1 j$(o,x)>j$(or,y))
1 j$(o,x)=e$(y)
1 j$(o,x)<e$(y)
1 j$(o,w)>v$(x,y)
1 j$(o,w)>j$(ol,u)
1 j$(o,on)>e$(ao-(ao>on
1 j$(o+st)=j$(o):
1 j$(o+st)=e$:
1 j$(o)>j$(or)
1 j$(o)=d$(u):
1 j$(o)<e$(or+(j$(op)>j$(o)))
1 j$(o)<e$(6
1 j$(o)<e$(3
1 j$(m,y)>d$(n,fo)
1 j$(m,w)>v$(v-x,y)
1 j$(m,w)>j$(ol-n+t,on)
1 j$(m,w)<c$(t,x)
1 j$(l,w)=a$(tw)
1 j$(l+st)=j$(l):
1 j$(k,tw)="
1 j$(k,on)="
1 j$(c,y)=e$(x)
1 iz kolody na "A"
1 iz dlinnoj masti
1 ix kolody na A
1 ispolnitsq li moe velanie ? budet li tolk w moem dele ? budet li mne bary{ ot |togo ? ute{itelxnoe li budet izwestie ? swidimsq li my kogda-nibudx s |tim ~elowekom ?najdu li q poterqnnoe ili ukradennoe ? iskrenna li druvba ko mne |togo ~eloweka ? blagopolu~no li q s'ezvu, ehatx mne ili net ? l`bit li menq |tot ~elowek ? s~astliwo li budet predpolagaemoe supruvestwo ~to za suprug (ili supruga) budet u menq ? syn ili do~x roditsq u menq ? wyzdoroweet li bolxnoj ili bolxnaq, ili q ? ~ego mne opasatxsq ? s~astliw li budet dlq menq nastupa`}ij god ? ~to zna~it |tot son ?
1 inz=klzx-1
1 input name & result for table results
1 igra******************
1 iffffffffffffffffd
1 iffffbffffffg
1 iffff""&fffffffffd
1 i+on);o$(p+w-fo*(p+w>fo));
1 i$="A")+(s$(n)
1 hzhhhhhhhhzhhhhhhhhzhhhhhhhhhzhhhhhhhhhzhhhhhzzhzzzhzz2
1 hx@x x@x@x`x`x
1 hx"x xCHQ(e
1 hod uve sdelan
1 hod posle '8'
1 hod igroka ============
1 h$(tw-a,on)*5
1 h$(tw-a,fo)
1 h$(tw,fo):
1 h$(tw)=h$(on):
1 h$(on)="0000":
1 h$(a+on,fo)
1 h$(a+on)>"3"
1 h$(a+on)<"1"
1 gzv=Gz-min:
1 gzn=Gz+min:
1 gob=Y(agv,1
1 gob1=Y(agv,in)
1 ggoo{{sscc5l
1 gg>on)+("N/S game"
1 gg)+("Game all"
1 geo.tablica************
1 gat-in1,vat+in;"
1 gat,vat;"o"
1 gap,vap;"X"
1 gap,vap;"*":
1 g(w+x);g(w+x)
1 g(fo+tw*gg))
1 g(fo+tw*gg)
1 g(c)=g(c)+p:
1 g(b)=g(b)+q
1 g(a)=g(a)+o:
1 g$=("1342"
1 g$="1234":
1 g$(w+on)=e$
1 g$(w)=g$(w+on):
1 fo;"Hand ";h'
1 fo,ze;"Contract"'r;
1 fffffffffd
1 ffff)+(a$(tw)
1 f=tw)+y*100
1 f<<b`|fff=~f
1 f,g,i,j,l,aa,k1,rp,n$:
1 f(x);v$(x,on):
1 f(w);v$(w):
1 f(v)=tw*(u>on
1 f(v);a$(on):
1 f(on);(s$(n));
1 f$=f$+"x":
1 f$=a$(on)+u$(t)+("x"
1 f$(tw)=u$(t)
1 e{e odna matrica kolody *******************
1 e{e matrica
1 e=f+on+d(k)+(fo
1 e=e-d(k)+j
1 e=d(k)+(13
1 e(w+on)=u:
1 e(w)=e(w+on):
1 e(w)<e(w+on)
1 e$="W")+(15
1 e$="-----":
1 e$(y-on)=g$
1 e$(y-on)=e$(y)
1 e$(y)>e$(y-on)
1 e$(y)=e$(y-on):
1 e$(x)=t$(y):
1 e$(x)=q$(y)
1 e$(tw)>"3"
1 e$(tw)<"5"
1 e$(on)="P");
1 e$(fo)=e$(on))
1 e$(a)=g$(x)
1 dwigaem wwerh
1 dop.mastx pri wybore
1 doc4.3 CH
1 dlq prowerki navat.nom.fi}ki
1 de=fo)+(30
1 daem igroku ili SPECCY
1 daem igroku **********
1 daem igroku
1 daem 8 kart ZX ********
1 daem 6 kart ZX
1 d=(a(ol)>ze)+(a(or)>ze):
1 d(k)=d(k)+c(k):
1 d(k)=d(k)+3
1 d$(x)=y$(x):
1 cscor D
1 ccss{{ooggcc%
1 ccggoo{{ssy@!
1 ccggok{ssccc
1 cKLO BK8p49
1 c=a+tw+tw*gg:
1 c4=(e$="4"):
1 c4=(e$="1"):
1 c,d;v$(x,tw);
1 c,d;a$(tw);
1 c+x,b;s$(x);:
1 c(k)=c(k)+
1 c$(t,y)=" ")
1 c$(b(w))=c$(b(w),
1 boot B{
1 boot B:!$
1 bname D
1 blok wybora karty igrokom *****************************
1 blok wybora kart igrok
1 bi=(e$="C"):
1 b(x)=b(x)-a(
1 apr40/50RC
1 annot B3\
1 afwg bnu
1 a=de-tw*(de>tw):
1 a=(j-g+r>7
1 a(v)=a(v+st):
1 a(or-n+t-(t>fo))
1 a(or-n+t))):
1 a(or)+a(ol)>x
1 a(op)>tw)))+"2
1 a(op)>a(or)
1 a(op)>a(ol))
1 a(op)<a(o)
1 a(op)+a(or)
1 a(ol-n+t-(t>fo))+a(or-n+t-(t>fo)))
1 a(ol-n+t-(t>fo)))
1 a(ol-n+t)))+(60
1 a(ol)+a(or)
1 a(ol)+(v=fo))
1 a(ol))+(50
1 a(o+st)=a(o):
1 a(o)=b(u):
1 a(o)=(a(op)>x)
1 a(l+st)=a(l):
1 a(POR,k)>100
1 a$=r$(t)+j$(m,w):
1 a$=r$(n)+j$(o,w):
1 a$=("4"+s$(t)
1 a$="Rdbl":
1 a$="Pass":
1 a$="Dble":
1 a$="6"+s$(fo-k1):
1 a$="5"+s$(fo-(j-
1 a$="3"+s$(p):
1 a$="2"+s$(t):
1 a$="2"+s$(p):
1 a$="1"+s$(p):
1 a$="1"+s$(n):
1 a$(y)>j$(o)
1 a$(y)>e$(6
1 a$(y)=e$(fo)
1 a$(y)<e$(5
1 a$(x)=f$(y)
1 a$(tw)>"1"
1 a$(tw)=u$(z):
1 a$(tw)=u$(y)
1 a$(tw)=u$(t)
1 a$(tw)=t$(w):
1 a$(tw)=t$(w)
1 a$(tw)=s$(t):
1 a$(tw)=q$(w)
1 a$(tw)=j$(l,a(l)):
1 a$(tw)=f$(tw)
1 a$(tw)=a$:
1 a$(tw)=(s$(z)
1 a$(tw)=((s$(p)
1 a$(tw)="P")+
1 a$(tw)+200
1 a$(on)=s$(u):
1 a$(on)=s$(u)
1 a$(on)=s$(n):
1 a$(on)=r$(u)
1 a$(on)=q$(x)
1 a$(on)=("4"
1 a$(on)=("1"
1 a$(on)="P"
1 a$(on)="O"
1 a$(on)="B"
1 a$(on)-on:
1 a$(on)+k$(b-on,on)+k$(b-tw,on)
1 a$(fo)="X"):
1 `geo scr C
1 ```````xFFFFFFFFFFFFx
1 `15.spr C
1 ___________
1 _UUUUUUUUUW
1 ^p15c Cxi
1 ]col.cd CP
1 ]UUUUUUUUUU
1 ]1 5.scr C
1 Y,X;V$(V):
1 Y,X1;X$;" ";
1 Y(l,m)=B(l,m)
1 Y(agv,l)=0
1 Y(I)=(Y(I)-A2)
1 Y(I)=(Y(I)+A2)
1 Y$=C$(X1):
1 XDspr C7
1 X-T(GPER)=
1 X$=R$(E(X)):
1 X$=R$(C(X)):
1 WWOD IMENI
1 WINZ=WINZ+1
1 WINZ=(WINZ+1
1 WINP=WINP+1
1 WINP=(WINP+1
1 WIN=SUMZ1:
1 WIN=SUMP1:
1 WIN=PLAYER:
1 W(K,L)>999
1 VU=A(POR,L)*2
1 VKOL=VPER:
1 VKO=(VKO+ST):
1 VICTORY!!!
1 VGEO BaP~KQ
1 VFN=(INF-23
1 VF=A(G,V):
1 VAT=(VAT-2
1 V(POR)=V(POR)+1
1 V(PLAYER)=S(PLAYER):
1 UuUUUUUUUUUUUUUUUUUUUUUUUUUUU
1 UUUUU\DDDTE_
1 UUUUUUU\DDDP
1 UUUUUUUZ"""0
1 UUUUUUUUUUU]
1 UUUUUUUUUUUU}
1 UUUUUUUUUUUUuUUUUUUUUUUUUUUUUUUUUUUUUUUWUUUU
1 UUUUUUUUUUUU]U
1 UUUUUUUUUUUUUUUUUUV
1 UUUUUUUUUUUUUUUUUUUUUUUUUUV
1 UUUUUUUUUUUUUUUUUUUUUUUUUUU
1 UUUUUUUUUUUUUUUUUUUUUUUUUUTx
1 UUUUUUUUUUUUUUUUUUU
1 UUUUUUUUUUUUUU
1 UUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT
1 UUTHa BPUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUT
1 UU"""""""""""#
1 UU""""""""""""2"
1 UDG ******************
1 U=A(POR,K)+HOD
1 T=(SUM+CT):
1 T=(I(Z)+T)
1 T*15 B+
1 T(L,M)=T(L,M)-16
1 T(L,M)=(V+M-1
1 T(GPER)=RD:
1 T(G)=T(G)-1
1 T(G)=(T(G)-1
1 T$(D($$$$$$$$$$$$)
1 Spas C8
1 SZ8=(SZ8-1
1 SUMZ=SUMZ-(V-10
1 SUMZ=SUMZ+V
1 SUMZ=(SUMZ-1
1 SUMZ=(SUMZ+V+3
1 SUMZ=(SUMZ+10
1 SUMZ=(SUMZ+(V*2
1 SUMZ1=SUMZ1+WIN:
1 SUMZ1=SUMZ1+SUMZ
1 SUMZ1=(SUMZ1+WIN):
1 SUMZ1=(SUMZ1+SUMZ)
1 SUMP=SUMP-(V-10
1 SUMP=SUMP+V
1 SUMP=(SUMP-1
1 SUMP=(SUMP+V+3
1 SUMP=(SUMP+10
1 SUMP=(SUMP+(V*2
1 SUMP1=SUMP1+WIN:
1 SUMP1=SUMP1+SUMP:
1 SUMP1=(SUMP1+WIN):
1 SUMP1=(SUMP1+SUMP):
1 SUM=(SUM+I(Y)):
1 SUM=(SUM+I(X))
1 SUM=(SUM+1
1 SUM1=SUM1+10
1 SUM1=(SUM1+20
1 SUM1=(SUM1+10
1 ST:.SL8V:.ATLV:
1 SS=V(PLAYER):
1 SS=S(PLAYER):
1 SPR=A(G,H)
1 SPM=(SPM-1
1 SP8=(SP8-1
1 SKOL=(SKOL-
1 SKOL:.ROW=
1 SERGEY ALEKSEYSLAVA SSS
1 SERGEY ALEKSEYSLAVA
1 SCOS=SCOS+1
1 SCORE & NAME
1 SCOP=SCOP+1
1 SC=SC+(R-6
1 S=(S+P+F+FL+NOB):
1 S=(S+P+F+FL+F5):
1 S(SS)=(SV-48
1 S(PLAYER)>
1 S(PLAYER)=(S(PLAYER)+S):
1 S(M)=D(M,L)
1 S(A)=S(A)+1
1 S$="~uwstwo pro~noe,ne somnewajsq.":
1 S$="~to ty ovidae{x, to i uznae{x.":
1 S$="~to s wozu upalo - to propalo.":
1 S$="~estnoe i dobroe su}estwo.":
1 S$="~ernil i bumagi ne povaleet, a takve slow.":
1 S$="~elowek ne interesant.":
1 S$="|tu poezdku nuvno wowse otlovitx.":
1 S$="|to budet qkorem twoego blagosostoqniq.":
1 S$="|ta osoba iz teh, kotorye bolee ~uwstwu`t, ~em wyskazywa`t.":
1 S$="zdorowyj butuz.":
1 S$="zawisit ot tebq samogo i twoih postupkow.":
1 S$="zatu{i w serdce sej ogonx l`bwi wodoj ras{udka, ne priwedet k dobru.":
1 S$="zaputae{xsq w delo nepriqtnoe.":
1 S$="zapolu~i{x horo{u` toliku.":
1 S$="zapoj : 'pro}a`sx angel moj s tobo`'...":
1 S$="z d o r o w y j .":
1 S$="wyzdoroweet, esli peremenit rod le~eniq, i, glawnoe, najdet umnee i opytnee doktora":
1 S$="wygoda po~tennaq.":
1 S$="wpolne, nesmotrq na obstanowku":
1 S$="wpolne sozdany drug dlq druga.":
1 S$="wozwratitsq, da e}e sam-drug.":
1 S$="wozmovno to i drugoe.":
1 S$="woob}e horo{. esli bude{x ig- ratx w karty ili drugie denev- nye igry, sadisx spino` k wos- toku i ne sadisx w ~etwergi. mnogo peremen s okruva`}imi i w oktqbre gotowitsq s`rpriz.":
1 S$="w uda~e,kavetsq, net osnowanij somnewatxsq.":
1 S$="w p o l n e .":
1 S$="w konce koncow - polu~ite.":
1 S$="w dwuh soro~kah rodilsq ! da, wpolne !":
1 S$="velaet ot du{i tebe prinadlevatx.":
1 S$="uznajte,~to delo idet po maslu":
1 S$="uwy ! n i k a k o g o.":
1 S$="uwidi{x skoree, ~em dumae{x.":
1 S$="ustroqtsq dela.":
1 S$="usly{i{x nowostx skoro.":
1 S$="userdnyj poklonnik bahusa.":
1 S$="uplylo. poblagodari ~estnogo br`neta.":
1 S$="udowletworitelxnoe.":
1 S$="udiraj ot nego wo wse lopatki.":
1 S$="uda~i ne budet, sam znae{x: ne tak sledowalo delatx.":
1 S$="uda~a-to budet, tolxko ~erez nee wragow mnogo pribudet":
1 S$="u w y !":
1 S$="u w y ! prostisx !":
1 S$="ty po u{i, a on...po pqtki.":
1 S$="trudno izbawitxsq ot nemo}i ne pridelae{x, ~ego net; upotreblqj palliatiwnye sredstwa.":
1 S$="tonkaq {tuka, posemu glqdi w oba.":
1 S$="to, ~to o~enx mnogo pridetsq tebe borotxsq s neovidannym prepqtstwiem i s`rprizami.":
1 S$="to, ~ego ty bolee wsego opasae{xsq, blagopolu~no ustroitsq, a e}e i skoru` uda~nu` poezdku.":
1 S$="tebq udowletworit.":
1 S$="tak sebe. pridetsq mnogo poezditx.":
1 S$="ta osoba, kotoraq wse tak antipati~no otnosilasx k wam sojdetsq s wami.":
1 S$="s~astliw otnositelxno glawnogo twoego interesa. wynese{x letom boleznx ot neostorovnosti.":
1 S$="syno~ka kapriznogo i wspylx~iwogo, no s mozgami.":
1 S$="synok, budu}ij nekotorym obrazom genij.":
1 S$="synok o~enx porqdo~nyj.":
1 S$="swerh ovidanij.":
1 S$="starajsq izbegnutx poezdki, move{x postradatx.":
1 S$="ssoru s blizkim ~erez spletni.":
1 S$="srednego klassa, no s onymi.":
1 S$="sowsem net.":
1 S$="so wremenem - da.":
1 S$="sna~ala pribudet s li{kom, potom s li{kom, gorazdo bolx{im, uplywet.":
1 S$="sna~ala delo budet drqnx, no w konce koncow ishod dast horo{ij.":
1 S$="sna~ala budet.":
1 S$="smu}atxsq ne~em, boleznx projdet i sowsem.":
1 S$="sli{kom mnogogo zahotel !":
1 S$="slepoj l`bwi i doweriq.":
1 S$="sleduet, poezvaj i wse ustroitsq.":
1 S$="skoree, ~em ovidaete.":
1 S$="samyj blagopolu~nyj budet dlq tebq. nowaq rodnq pribudet.":
1 S$="sami znaete, ~to sleduet brositx delo i skorej, esli wozmovno.":
1 S$="s y n o k .":
1 S$="s bogom, budet uda~a.":
1 S$="s bogom ! obojdetsq i bez s`rprizow.":
1 S$="s b o g o m.":
1 S$="roditsq syn, kotoryj so wremenem dostignet bolx{ih po~estej.":
1 S$="rezulxtatow neostorovnosti w slowah i izli{nego samol`biq i toropliwosti.":
1 S$="rezulxtat budet pustoj.":
1 S$="prodolvenie sno{enij s izwestnoj osoboj : movet wyjti bolx{oj skandal.":
1 S$="privimaj plotnee karman.":
1 S$="priqtno, no nesowsem.":
1 S$="pridetsq powozitxsq s boleznx`":
1 S$="pridetsq skoro imetx delo so slezami.":
1 S$="pribudet skoro.":
1 S$="prehoro{enxkaq do~ka.":
1 S$="predpolagatx, kak imee
1 S$="predpolagaemoe supruvestwo prineset s~astxe.":
1 S$="predajsq wpolne swoej zabote.":
1 S$="pouserdstwuq - obrq}e{x.":
1 S$="poterqtx to, ~to wsego dorove, a delo klonitsq k tomu.":
1 S$="postignet neuda~a.":
1 S$="posredstwenno dowolen.":
1 S$="posledstwij ot neumerennoj wl`b~iwosti.":
1 S$="posle mnovestwa prepqtstwij i hlopot, nakonec, sojdetesx.":
1 S$="porodni{xsq so znatnym rodom.":
1 S$="poprawi{xsq, esli perestane{x kolebatxsq,kak do sih por bylo i akkuratno bude{x ispolnqtx poslednij sowet.":
1 S$="pominaj, kak zwali.":
1 S$="polu~i{x pri neovidannom ste~enii obstoqtelxstw.":
1 S$="polu~i{x neovidannoe predlovenie.":
1 S$="poka ni~ego ne predprinimaetsq":
1 S$="pojme{x sladostx supruveskih uz.":
1 S$="poezvaj, polu~i{x polxzu.":
1 S$="poezdka velatelxna.":
1 S$="po kosto~kam perebiratx master":
1 S$="pi{i propalo !":
1 S$="padaniq duhom i bezrazli~nogo otno{eniq ko wsemu, ~to i sos- tawlqet glawnoe nes~astxe twoe":
1 S$="p r o s t i s x.":
1 S$="p o l u ~ i { x.":
1 S$="o~enx korotkogo znakomstwa s pose}a`}e` tebq li~nostx`.":
1 S$="ovoga ot ognq, wokrug kotorogo letae{x.":
1 S$="ovidaemye izwestiq maloute{itelxny.":
1 S$="otsutstwu`}emu ne do tebq.":
1 S$="ot wsego serdca.":
1 S$="ostanxsq |tot raz, ne povalee{x.":
1 S$="osoba s bolx{im sodervimym w golowe i...w karmane.":
1 S$="osoba bednaq, no blagorodnaq.":
1 S$="odni hlopoty i bespokojstwo.":
1 S$="odin stoit desqti.":
1 S$="odin rovden dlq drugogo.":
1 S$="obrq}e{x, no ow~inka ne budet stoitx wydelki.":
1 S$="obleg~enie nastupit. ne sleduet prenebregatx pred- lagaemymi doma{nimi sredstwami":
1 S$="o s t a n x s q.":
1 S$="ni~ego osobennogo; pomenx{e riskowatx swoim zdorowxem.":
1 S$="ni na wolos ne sleduet dowerqtx.":
1 S$="neuda~en budet dlq tebq.":
1 S$="net. ovidaj izwestie o ~uwstwitelxnoj potere ~erez swo` }epetilxnostx i dowerie.":
1 S$="net, no sam, ot~asti, tomu pri~inoj.":
1 S$="neposledowatelxnosti w swoih dejstwiqh.":
1 S$="neovidannogo hroni~eskogo oslableniq karmana,- k tomu idet.":
1 S$="neovidannoe, no udowletworitelxnoe.":
1 S$="nekotoroe wremq pojdet wse k lu~{emu, tolxko ne zatewaj izwestnogo tebe.":
1 S$="ne trusx za swoe su}estwowanie":
1 S$="ne sli{kom li mnogogo velae{x?":
1 S$="ne skoro: uwavitelxnaq pri~ina zaderviwaet.":
1 S$="ne propadet, tolxko ne skoro polu~i{x.":
1 S$="ne predprinimaj ni~ego wavnogo |tot god dlq predpriqtij budet neuda~en.":
1 S$="ne nahodka - iskrennego malo.":
1 S$="ne iz teh, komu movno dowerqtx":
1 S$="ne ispolnitsq k u}erbu twoemu.":
1 S$="ne zakrywaj glaza: sobl`daet odnu wygodu i interes.":
1 S$="ne w soro~ke wy rodilisx. ne upowajte.":
1 S$="ne w soro~ke ty rodilsq. neuda~a pogonqet neuda~u,- sredstwo pomo~x : woli bolx{e i upowaniq na boga.":
1 S$="ne prenebregaj im - budet dlq tebq podhodq}im.":
1 S$="ne o~enx.":
1 S$="ne iz ~isla dobrenxkih.":
1 S$="ne iz teh, komu movno wse dowerqtx.":
1 S$="ne iz priqtnyh.":
1 S$="ne ezdi - darom s'ezdi{x !":
1 S$="ne dovde{xsq swidaniq.":
1 S$="ne budet, i sledowalo dawno brositx.":
1 S$="ne angel, no i ne demon.":
1 S$="narwe{xsq !":
1 S$="naruvnostx ~asto bywaet obman~iwa.":
1 S$="na nego movno wpolne polovitxsq.":
1 S$="na bary{ ne nadejsq.":
1 S$="n e t, p r o s t i s x.":
1 S$="n e t .":
1 S$="n e t i n e t.":
1 S$="n e s k o r o.":
1 S$="n a ~ i n a j.":
1 S$="mudreno wyzdorowetx pri takom le~enii; widno, togda wozx- me{xsq za um, kogda budet p o z d n o.":
1 S$="move{x radowatxsq - budet po twoemu.":
1 S$="mnogo budet raznyh gadostej, no wse koe-kak peremeletsq.":
1 S$="mnogo budet skwernyh kawerz k letu peremena rezidencii.":
1 S$="mnogo budet nepriqtnostej, bolx{e ot spleten, nepriqtnyh scen i pro~ee, sleduet bytx poostorovnee.":
1 S$="medx, swerhu pozolo~ennaq...":
1 S$="maska ~uwstwa iskrennego, nadetaq radi ovidaemogo interesa i |kspluatacii was i karmana.":
1 S$="mahni rukoj.":
1 S$="lu~{e velatx ne nuvno.":
1 S$="lu~{e spasuj.":
1 S$="li{nee ovidatx.":
1 S$="l`bit - karman.":
1 S$="l`bit iskrenne.":
1 S$="kuj velezo, poka gorq~o.":
1 S$="kto-to budet tebq o ~em-to prositx.":
1 S$="klquzy budut i ssora bolx{aq.":
1 S$="k r a v u.":
1 S$="iz poezdki |toj ni~ego ne wyjdet, tolxko zrq proedete. lu~{e otlovitx.":
1 S$="isportitsq zdorowxe - i tak ne ahti kakoe ; po~inka budet nelegkaq.":
1 S$="ispolnitsq, tolxko ne w tom wide, kak velae{x.":
1 S$="ispolnenie twoego zadu{ewnogo velaniq.":
1 S$="iskrennqq, ~to redkostx sostawlqet.":
1 S$="iskrenne.":
1 S$="iskrenne l`bit drugu`, tebq ve net.":
1 S$="interesu`}aq tebq osoba l`bit no ~uwstwa ee nepostoqnny.":
1 S$="imej pomenx{e dower~iwosti, pobolx{e nastoj~iwosti harak- tera i togda ne~ego budet opasatxsq.":
1 S$="i s k r e n n q q .":
1 S$="i ~uwstwa, i obstanowka tebe blagopriqtstwu`t.":
1 S$="huda ne budet, da tolku tove.":
1 S$="hlopoty i nepriqtnosti.":
1 S$="gm! nadejsq.":
1 S$="glqdi w oba - raspolovennye k tebe lica wykavut na dele neraspolovenie; s tem, kto tebe blive, prostisx.":
1 S$="fx` ! fx` ! prostisx !":
1 S$="esli weri{x gadani` - rasstroj bude{x valetx i, glawnoe, terpetx.":
1 S$="esli ho~e{x razumnogo soweta i weri{x gadani` - brosx delo radi spokojstwiq.":
1 S$="esli ehatx, to ne otkladywaq.":
1 S$="esli wstupi{x w brak sej, to ne raz bude{x skrevetatx zubami.":
1 S$="emu ne do tebq.":
1 S$="ehatx sleduet, tolxko ne w nazna~ennoe wremq.":
1 S$="edwa li, esli budete prodol- vatx tak akkuratno le~itxsq":
1 S$="druvba s |tim ~elowekom ne wozbudit sovaleniq.":
1 S$="do~x, no dorogo budet stoitx.":
1 S$="do~x i rody legko projdut.":
1 S$="do~ka i o~enx porqdo~naq.":
1 S$="dorogo obojdetsq bez tolku.":
1 S$="dolgo bude{x pomnitx |tu druvbu.":
1 S$="dob'e{xsq velaemogo.":
1 S$="dewo~ka - prehoro{enxkaq.":
1 S$="dervisx krep~e za nego - on twoe s~astxe.":
1 S$="denxga pribudet.":
1 S$="delo ploho.":
1 S$="dela pojdut k lu~{emu.":
1 S$="da, skoro, bez posledstwij.":
1 S$="da, no pridetsq poterpetx sperwa neuda~i.":
1 S$="da, da ty-to stoi{x li |togo ?":
1 S$="da, no s trudom.":
1 S$="d o ~ x.":
1 S$="d o ~ k a.":
1 S$="d a .":
1 S$="budu}ij sputnik bra~noj vizni budet dobrodetelxnyj i dobryj.":
1 S$="bude{x mnogim licam,t.s. ohot- nikam, sluvitx di~x`; esli bu- de{x stolx-ve nepredusmotrite- len, to move{x postradatx. perwym delom rassortiruj okru- va`}ih tebq i ne zakrywaj glaz":
1 S$="bude{x imetx naglqdnoe ponqtie ob ade.":
1 S$="bude{x hlopotatx - to, da !":
1 S$="budete swqzany uzami braka, no ne uzami... ~uwstwa.":
1 S$="budet, esli bude{x o~enx staratxsq.":
1 S$="budet, tolxko ne ot kogo ~ego ovidatx.":
1 S$="budet s~astliwym, i na wragow ne pridetsq tebe povalowatxsq.":
1 S$="budet lu~{ij dlq tebq, po|tomu wse, ~to kogda zadumywal, priwodi w ispolnenie : - udobnej{ego slu~aq ne budet.":
1 S$="budet li ? wot wopros, sna~ala ego razre{ite.":
1 S$="budet polxza.":
1 S$="budet neuda~a, no poprawima. poterq w bolx{oj prazdnik blizkogo ~eloweka.":
1 S$="budet ne sowsem ovidannoe.":
1 S$="budet nad nim blagoslowenie bovie.":
1 S$="budet do~x.":
1 S$="brosx, poka movno.":
1 S$="brosx |to - delo tabak.":
1 S$="bolx{e horo{ego, ~em durnogo, peremena vizni osenx` i malenxkij ubytok letom.":
1 S$="bolx{aq budet wygoda.":
1 S$="bolxno mnogo zamy{lqe{x, move{x swihnutxsq.":
1 S$="boleznx projdet.":
1 S$="boleznx projdet odna, no drugaq qwitsq.":
1 S$="boleznx bessledno projdet.":
1 S$="bogataq osoba, wkusiw{aq uve prelesti supruveskoj vizni.":
1 S$="begi ot nego, qko ot ognq !":
1 S$="b u d e t .":
1 S$="b u d e t s y n.":
1 S$="angel, a ne ~elowek.":
1 RCLI B
1 RCCH B
1 R(S)=K(K,L):
1 R(S)=K(G,V):
1 R(K)=R(K)-4
1 R(K)=R(K)+9
1 R(K)=R(K)+7
1 R(K)=R(K)+2
1 R(K)=R(K)+1
1 R$="T23456789
1 QEQDQDQDQDQEQE
1 PROWERIM TUZY ********
1 POR=POR+ST
1 POL=POL-61695
1 POL=POL+1559
1 PLAYER=DIR:
1 PAT=(PAT-1
1 PAT=(PAT+1
1 P3:.ROW=P4+K-
1 P(Z)=(X+Y):
1 P(X)=P(Y):
1 P(S8)=K(K,8
1 P(S8)=K(K,7
1 P(Gz,Vz)=9
1 P$(gp,vp)="o"
1 P$(gp,vp)="
1 P P P P PassPassPass1
1 OTMENA I WYBOR
1 OTKRYTX IZ KOLODY
1 OST=OST+(R-1
1 O(A(POR,L)+1
1 North5East 4South5West 4
1 NOMER=(G-2
1 N(POR)=INN
1 N$=" ":
1 N$(S)=N$(I)
1 N$(POR)=S$
1 Mroadmin D
1 MP3:.ROW=RO+K:
1 MOVE ZX ==============
1 MOVE RIGHT
1 M8=(ATU-15
1 M8=((ATU-15
1 M(K,L)=M(K-1
1 M(K,L)=M(K,L-1
1 M(K,L)=M(K,L+1
1 M(K,L)=M(K+1
1 M$="wyberite kartu":
1 M$="wyberite 2 karty w krib":
1 M$="wy - sda`}ij"
1 M$="wskrywa` krib? (l`baq klawi{a)":
1 M$="wam ne powezlo - moq pobeda! "
1 M$="teperx q snima` kolodu":
1 M$="s~ita` wa{i o~ki":
1 M$="s~ita` swoi o~ki":
1 M$="s~ita` o~ki w kribe":
1 M$="summa dolvna bytx menx{e 32":
1 M$="snimite kolodu l`boj klawi{ej":
1 M$="sledu`}ij raund? (1-da, 0-net)":
1 M$="sda`}ij - ZX":
1 M$="primite pozdrawleniq s pobedoj! ":
1 M$="navmite l`bu` klawi{u":
1 M$="kribedv":
1 M$="esli ne~em hoditx, navmite ENTER":
1 M$="2 o~ka za ego ~elqdx":
1 LOAD ++++++++++++++++++
1 L=(U-HOD+1
1 L=(A(POR,5
1 Kmin.cd Ci
1 KHV=((M8-1
1 K:.ROW=P4+P3:.SPN=R(S-
1 K:.ROW=(L-
1 K(SP,(P3+K))=K(MSP,K):
1 K$="JK6789QDA"
1 K$="A23456789DJQK"
1 INN=A(POR,NOM)
1 INN=(POR-1
1 INF=INF-28
1 INF=INF+72
1 INF=A(POR,NOM)+HOD
1 INF=A(POR,NOM)
1 I=A(POR,NOM)
1 I(Y)=D(X):
1 I$=N$(POR):
1 Hscr.min C
1 HOD=S(K,VU):
1 HOD=S(GU,VV)
1 HOD1=HOD1+1
1 HELP ******************
1 H(Y)=T(X):
1 H(Y)=C(X):
1 H(X)=E(X):
1 H(X)=C(X):
1 H(X)=A(X):
1 H(G);" ";:
1 H$(Y)=C$(X):
1 H$(X)=E$(X):
1 H$(X)=C$(X):
1 H$(X)=A$(X):
1 Gxxxxxxxxxxxhhhxxx
1 Gxxxxxxxxxxxhhhhxx
1 GU=A(POR,L)*2
1 GRAPH C0u
1 GGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGG
1 GFS,VFS;" "
1 GFN=(A(POR,NOM)-196
1 GAT,VAT;P$
1 GAT,VAT;"+":
1 GAT,VAT;"*"
1 G(PLAYER)=G(PLAYER)+
1 Fffffvb"*"&"&$
1 Ffffffr"*"*"2$
1 Ffffff""*"""#$
1 Ffff)+("6"
1 FMIN B
1 FFFFFFFFFFFFFFFFF__FF__F
1 FFFFFFFFFFFFFFFFFFFFFCCCFFCCCF &&
1 FFFFFFFFFFFFFFFFFCCFFCCF8g
1 FFFFFFFFFF+
1 FFFFFFFFFF*
1 FBBBDBDBBBBBBBBBB_
1 F=a(POR,NOM)+HOD
1 F8*E\"B\:G\
1 F$="SPACE"
1 ETLDEED|EEZ_$D
1 E(X)=C(T(X)):
1 E$(X)=C$(T(X)):
1 Di.cd. C
1 DWINEM VVERH
1 DDDNDHDDHDDDd$
1 DDDDDDDDDDDDe$
1 DDDDDDDDDDDDDDDDDDDDG
1 DDDDDDDDDDDDDDDDDDDDDa
1 DDDDDDDDDDDDDDDDDDDDDDtD(
1 DDDDDDDDDDDDDDDDDDDDDDDG
1 DDDDDDDDDDDDDDDDDDDDDDD.
1 DDDDDDDDDDDDDDDDDDDDDDD*
1 DDDDDDDDDDDDB
1 DBBBBBBBBBBB
1 D(Y)=D(X):
1 C(Y)=C(X):
1 C(J)=(C(I)+
1 C$(Y)=C$(X):
1 BRI B0
1 BLACK CHEK
1 BBBCU"BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBEBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
1 BBBBNMaDMUU
1 BBBBBBBBB_
1 BBBBBBBBBC
1 BBBBBBBBBBBBL~BD
1 BBBBBBBBBBBBEzBE
1 BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBC
1 B(umb,l)=g1+1
1 B(umb,l)=g1
1 B(umb,l)=g+l
1 B(K)=A(FL,L)
1 B$= "w 'morskoj boj' na bumage igratxprihodilosx, nawernoe, wsem. \taigra - wariant imenno toj bumav-noj igry. korabli stawit ma{ina,zatem, polxzuqsx podskazkoj wnivnej ~asti \krana, w ukazannomporqdke stawite wy. esli popy-tatxsq otmetitx kletku rqdom suve postawlennym korablem, towse budet sterto i pridetsq pow-toritx rasstanowku sna~ala. sta-witx korabli movno po wertikaliili gorizontali. porqdok rassta-nowki imenno kak w podskazke.esli wybran urowenx 1, to, kromekorablej, w l`bu` kletku dolvenbytx postawlen 'qdernyj zarqd'.pri popadanii w \tu kletku igrazakan~iwaetsq i pobeda daetsqstrelqw{emu. urowni 2 i 3 otli-~a`sq wremenem obdumywaniq.":
1 B$= "na igrowoe pole wypada`t cwetnyefigurki, iz kotoryh nado sosta-witx lini` odnogo cweta, w koto-roj dolvno bytx ne menee 5 {tuk.liniq movet stroitxsq w l`bomnaprawlenii, w tom ~isle po dia-gonali. postroennaq liniq is~e-zaet, oswobovdaq zanqtye kletki.zada~a igra`}ego - prodervatxsqkak movno dolx{e, sostawiw nai-bolx{ee koli~estwo linij i polu-~aq za \to premialxnye o~ki. zalini` dlinnee pqti figur na~is-lq`tsq dopolnitelxnye o~ki. esli figurka wybrana, no putx eepereme}eniq e}e ne ukazan,to wy-bor movno otmenitx klaw.'ogonx'.esli putx pereme}eniq uve na~aliotme~atx, to isprawlenie proiz-westi nelxzq. urowenx igry - \tokoli~estwo wypada`}ih figurok.":
1 B$= " nastoq}ee gadanie, geomantiq,nedawno stalo izwestno w ewrope.dlq togo,~toby polu~itx otwet naodin iz woprosow, nado na kavdojiz karto~ek, uderviwaq klawi{u see nomerom, postawitx neoprede-lennoe ~islo to~ek, staraqsx nes~itatx ih, a dumatx ob intere-su`}em gada`}ego woprose. wsego movno polu~itx otwety na{estnadcatx woprosow, pri~em mo-vet bytx {estnadcatx wariantow.opredelenie otweta - dostato~noslovnaq procedura. no ne somne-wajtesx - wse budet pods~itanoto~no tak, kak rekomenduet meto-dika \togo gadaniq. a budet li polxza ot \tih reko-mendacij i sbudutsq li predska-zaniq - nu kto movet \to znatx?":
1 B$= " \ta igra bolee znakoma star{emupokoleni`. bylo wremq, kogda onabyla ~utx li ne w kavdoj semxe. sutx igry o~enx prosta. w koro-bo~ke levat 15 kubikow s ~islamiot 1 do 15. imeetsq wozmovnostxsdwigatx odin iz kubikow na swo-bodnoe mesto. polxzuqsx \tim, movno pereme}atxkubiki, ~toby dosti~x kone~nojceli: sostawitx kubiki po porqd-ku nanesennyh na nih ~isel. wse poqsneniq po uprawleni` ig-roj widny na igrowom pole. imeetsq wozmovnostx sohraneniqtablicy rezulxtatow na diskete,esli wa{a igra byla uda~noj i wypopali w \tu tablicu blagodarqwa{emu rezulxtatu.":
1 B$= " igra w ' o~ko ' - odna iz sa-myh prostyh i samyh azartnyh igrw karty ' na interes '. imena igrokow wwodite wnima-telxnee - dannaq sisnema ne do-puskaet isprawlenij. zawer{aetsqwwod navatiem klawi{i 'ENTER'. w bank movet bytx wneseno nebolee 50 monet ( \to uslownaqedinica, ona movet wyravatx ~tougodno : rubli, ~erwoncy, funty,dollary ). posmotrew swo` kartu, nadoukazatx weli~inu stawki, kotoraqne dolvna prewy{atx summu banka.posle \togo nado bratx e}e kartu( TAKE ) ili peredatx igru ban-kiru ( STAY ). wybiraq wariant,nado imetx wwidu, ~to celx -nabratx summu o~kow, naiboleeblizku` k 21.":
1 B$= " estx mnogo wariantow \toj igryi igrowyh polej dlq nee. zdesxispolxzowan tip {ahmatnoj doski. u was 4 fi{ki, kotorye dolvnyprojti krug i wstatx na swo` diagonalx. fi{ka wywoditsq, esli nakubike'6'.esli w kone~noj kletkehoda stoit fi{ka protiwnika-onasbiwaetsq. za '6' i sbitu` fi{kudaetsq dopolnitelxnyj hod. predloveno 2 warianta igry:obgo-nqtx fi{ki movno i nelxzq, daveswoi.u kavdogo swoi dostoinstwa.movno wybratx odin iz dwuh wari-antow oformleniq igrowogo polq.igratx mogut do 4 ~elowek,tolxkownimatelxno ukavite ~islo igra`-}ih pri wybore igry. u~tite : ~em bolx{e igra`}ih,temuwlekatelxnee \ta igra.":
1 B$= " \to - odin iz wariantow pasx-qnsa SOLITAIR ili KLONDIKE izpaketa SIERRA dlq IBM PC. w opi-saniqh starinnyh pasxqnsow onizwesten pod nazwaniem 'blondin-ka i br`netka'. rasklad s~itaetsq uda~nym, es-li udalosx otkrytx wse karty.dlq \togo otkrytye karty perewo-dqtsq po opredelennym prawilam. pereme}atxsq mogut wse otkry-tye karty stolbca odnowremenno.pri~em werhnqq karta pereme}ae-mogo stolbca dolvna bytx proti-wopolovnoj masti (~ernaq - kras-naq ) i na edinicu menx{ego dos-toinstwa, ~em nivnqq karta wyb-rannogo stolbca. na swobodnoemesto movno peremestitx tolxkostolbec s korolem wwerhu ili od-nogo korolq.":
1 B$= " \ta igra otnositsq k tipu nas-tolxnyh igr, kotorye trebu`t so-sredoto~ennosti, wnimatelxnostii to~nosti w dejstwiqh. i abso-l`tno protiwopokazana l`baq pos-pe{nostx : pomnite dewiz - sapero{nbaetsq odin raz... bolee podrobnoe opisanie \tojigry prisutstwuet w samoj igre.zdesx movno skazatx wot o ~em.ot wybora sposoba raboty minois-katelq zawisit slovnostx igry.samyj legkij - kombi, zdesx po~-ti wsegda dostigaetsq pobednyjrezulxtat, hotq polnoj garantiinet. ostalxnye sposoby wynudqtdowolxno ~asto pribegatx k wynu-vdennomu ugadywani`. i daj wam bog s~astxq.":
1 B$= " \ta igra imeet mnovestwo naz-wanij i ne menx{ee ~islo prawil.zdesx igra prohodit po sledu`}imprawilam. na otkrytu` kartu nastole igroki po o~eredi dolvnypolovitx swo` kartu toj ve mastiili togo ve dostoinstwa. w \tojigre glawnymi kartami s~ita`tsqdamy, imi movno hoditx w l`bomslu~ae. krome hoda dama daetprawo nazna~itx mastx, obqza-telxnu` dlq odnogo hoda soperni-ka. esli karty dlq hoda net, toiz kolody beretsq odna karta.esli i ona ne podhodit, to hodperedaetsq soperniku. w \toj ig-re movno wzqtx kartu iz kolody,dave esli hoditx estx ~em ( \tomovet datx takti~esku` wygodu ).wzqw kartu iz kolody, movno i nehoditx wowse, peredaw hod.":
1 B$= "TO BID AND PLAY THE HANDS ocenitx i zakazatx igru.MERELY TO PLAY THE CARDS prosto razygrywatx karty.TO PLAY : -A WEAK (12-14) nizkij urowenx igry; -STRONG (15-17) silxnyj urowenx igry; -VARIABLE NO TRUMP igra bez kozyrq. TO SEE ALL FOUR HANDS pokaz kart wseh igrokow.TO SEE MERELY THOSE OF NORTH AND SOUTH pokazywatx karty tolxko N/S, t.e. wa{i i wa{ego partnera. \ti wyraveniq primerno w takomporadke wstre~a`tsq pri wyboreustanowo~nyh dannyh w na~ale no-woj partii.":
1 B$= " za sygrannyj '{lemik' dobaw-lqetsq 750 o~kow, a za '{lem' -1500. esli wzqtok menx{e, ~emzakazano, to o~ki ne pi{utsq ig-ra`}im, a pi{ut ih protiwnikam(urowenx * mastx), no premiq nedaetsq. III. i g r a. igrok, sda`}ij karty, otkry-waet torgowl`. perwyj hod de-laet igrok, sidq}ij slewa ot aw-tora kontrakta. partnery sidqtnaprotiw drug druga. kogda polo-vena perwaq karta, partner awto-ra kontrakta ( ego nazywa`t'dqdxka'),raskrywaet swoi karty.on mol~a, ne podskazywaq, nabl`-daet za igroj. razygrywa`}ij(awtor kontrakta) daet ukazaniq'dqdxke', kakie karty klastx.":
1 B$= " ustanowo~nye dannye na~ala igryDO YOU WANT:- wy hotite: -THE COMPUTER TO DEAL THE CARDS ~toby kompx`ter sdawal karty. TO INPUT A DEAL OF YOUR OWN CHOOSING ~toby karty dlq sda~i wybira- li wy po swoemu usmotreni`. TO MAKE YOUR CHOICE PRESS A OR B sdelajte wybor,navaw A ili B.N/S (YOUR SIDE) ALWAYS TO HAVEMORE POINTS THEN E/W wa{a storona wsegda imeet bolx{e o~kow, ~em protiwniki.N/S USUALLY (BUT NOT ALWAYS) TOHAVE MORE POINTS THEN E/W wy oby~no, ne wsegda, imeete bolx{e o~kow, ~em protiwniki.RANDOMLY DEALT HANDS razda~a slu~ajnym obrazom.":
1 B$= " pri otsutstwii masti movno newykladywatx kozyrx, a snesti l`-bu` kartu. \to osnownoe otli~ieot 'preferansa' ( i, kak uve go-worilosx wy{e, otsutstwie priku-pa ). w ostalxnom igry o~enx po-hovi. IV. uprawlenie. kontrakt wwoditsq sna~ala cif-roj urownq igry (1 - 7), zatemna~alxnoj bukwoj masti kozyrej: C - 'trefa' H - '~erwa' D - 'bubna' S - 'pika'. wwod awtora kontrakta - bukwojstorony sweta: N, S, W, E. wwod hoda: sna~ala bukwu masti,zatem kartu (a - tuz, k - korolxQ - dama, J - walet, t - desqtx,9, 8...3, 2 ).P - pass, N - na-~atx nowu` igru, R - powtoritx.":
1 B$= " igra`t w 'bridv' w~etwerom ko-lodoj 52 lista. I. torgowlq ili kontrakt. partnery kavdoj pary stremqtsqwyqsnitx summarnu` silu swoihkart i kart protiwnika, ob'q-witx ~islo wzqtok i polu~itxprawo zakazatx igru na swoih ko-zyrqh. II. rozygry{. maksimalxnoe ~islo wzqtok - 13,minimalxnoe - 7, prikupa w \tojigre, w otli~ii ot 'preferansa',net. porqdok mastej - trefa, bubna,~erwa, pika. wse 13 wzqtok - ' {lem ', 12 - ' malyj {lem '('{lemik'). igra bez kozyrq -star{e 'piki'.":
1 B$= " wnizu raspoloven 'magazin',sostoq}ij iz ostaw{ihsq kart ko-lody. karty iz nego movno otkry-watx i pereme}atx w werhnee, os-nownoe pole po tem ve prawilam(mastx,star{instwo), ~to i kartyw osnownom pole. movno dlq wybo-ra nuvnoj karty neodnokratno pe-rekistywatx 'magazin', perewora-~iwaq kolody, kogda ona zakon-~itsq ( TURN ). slewa - pole tuzow. otkrytyjtuz pome}aetsq tuda, i na negomovno perewoditx odnu nivn``kartu iz stolbca ili odino~nyekarty toj ve masti iz osnownogopolq ili iz magazina po wozras-ta`}emu star{instwu: 2, 3, 4 itak dalee (odinakowoj masti).":
1 B$= " w pakete igr SIERRE dlq IBM PC\ta igra nazwana CRAZY EIGHTS. na otkrytu` kartu na stole ig-ra`}ie dolvny po o~eredi klastxodnu iz swoih kart po opredelen-nym prawilam. movno polovitxkartu toj ve masti ili togo vedostoinstwa, ~to i otkrytaq.iskl`~enie sostawlq`t glawnyekarty - wosxmerki; ih movno po-lovitx na l`bu` kartu, i pri\tom e}e nazna~itx mastx dlqsledu`}ego hoda sopernika. esli karty dlq hoda net, to izkolody berutsq karty do teh por,poka hod poqwitsq (ne bolee 20). wyigrywaet tot, kto naberetbolee 100 o~kow. zna~eniq kart:a - 1, 2 - 10 po nominalu, wse'kartinki' - 10 o~kow.":
1 B$= " posle hoda opredelennymi kar-tami nastupa`t opredelennye pos-ledstwiq: propuskaetsq odin hod,esli na stol poloven tuz; poslehoda semerkoj propuskaetsq hod iberetsq odnq {trafnaq karta;posle {esterki - propusk hoda ie}e dwe {trafnye karty. o~ki polu~aet tot, u kogo narukah ne ostalosx kart ili u ko-go menx{ee koli~estwo o~kow, es-li karty ostalisx u oboih igro-kow. dlq pobedy nado nabratx bo-lee 100 o~kow. o~ki s~ita`tsq tak : ot dwojki do desqtki - po nomi-nalu; walet - 2; dama - 20; ko-rolx - 4; tuz - 11.":
1 B$= " esli polu~ilasx summa rowno21, to wyigry{ bessporen, bankirdave ne igraet. esli bolx{e 21,to bessporen proigry{, bankirtove ne igraet. esli summa o~kowu was i u bankira odinakowa, towyigrywaet bankir, takowy uslo-wiq igry. na rukah ne movet bytxbolee 5 kart. wyigry{ takve bes-sporen, esli pri{lo 5 'ruba{ek'. bank ne movet uweli~iwatxsqbeskone~no. esli posle o~eredno-go rozygry{a poslednim igrokomsumma monet w banke troekratnoprewysila perwona~alxnu` summu,to kavdyj igrok delaet wsego od-nu stawku ( tak nazywaemyj'stuk' ), i igra zakan~iwaetsq.":
1 B$= " uprawlenie ukazatelem : 1. klawi{i Q - wwerh O - wlewo A - wniz P - wprawo SPACE - wybor karty ili stolbcadlq perewoda w osnownoe pole,oni otme~a`sq drugim cwetom. ENTER - perewod odino~noj kartyna pole tuzow. 2. kempston - dvojstik wybor naprawleniq - oby~nyj.'ogonx' - wybor karty ili stolb-ca dlq perewoda w osnownoe pole.'ogonx + wlewo' - perewod na po-le tuzow. kartu pri perewode na pole tuzowne otme~atx cwetom !":
1 B$= " tablica zapisi o~kow. ---------------------------- urowenx trefa ~erwa bez igry bubna pika kozyrq ---------------------------- 1 20 30 40 2 40 60 70 3 60 90 100 4 80 120 130 5 100 150 160 6 120 180 190 7 140 210 220 ---------------------------- esli ~islo otobrannyh wzqtoksootwetstwuet zakazannomu urow-n` igry, togda k o~kam za syg-rannyj urowenx i mastx dobaw-lqetsq sootwetstwu`}aq premiq300 ili 500 o~kow w zawisimostiot urownq igry.":
1 B$= " tablica ierarhii igr. ------------------------------- uro- wzq- tref bub ~er pik bez wenx tki CLU DIM HAR SPU koz ------------------------------- 1 7 1 2 3 4 5 2 8 6 7 8 9 10 3 9 11 12 13 14 15 4 10 16 17 18 19 20 5 11 21 22 23 24 25 6 12 26 27 28 29 30 7 13 31 32 33 34 35 ------------------------------- ~isla pokazywa`t naprawlenierazwitiq kontrakta ( samaq star-{aq igra - 35 ). o~ki s~ita`tsqpo urown` igry i masti, w koto-roj byla prowedena igra. 'trefa' i 'bubna' - po 20 o~kow,'~erwa' i 'pika' - po 30 o~kow,'b/kozyrq'-30*urow+10.":
1 Awtor w.Minewskij.ST.PeteRSBURG, 1995.
1 AwTOr MinEwsKij.w.ideq i zastawKA-OwAnEsOw A.1994,ST.P
1 Avtor V. Minevskij
1 ATU=(ATU-2
1 ATU=(ATU+2
1 AG1=AG+(K*2
1 AG1,AV1;W(K,L)
1 AAA1AAAAAA
1 A1=(A1-A2)
1 A1=(A1+A2)
1 A(g1,v+l)=
1 A(g+l,v1)=
1 A(Z)=A(X):
1 A(U,K)=SS:
1 A(POR,PA)=INN
1 A(POR,NOM)>100
1 A(POR,NOM)=INF
1 A(POR,NOM)=(POR*100
1 A(POR,NOM)=(INF+72
1 A(POR,NOM)<100
1 A(POR,L)>8
1 A(POR,L)>22
1 A(POR,L)>15
1 A(POR,L)=N(POR)
1 A(POR,L)=F
1 A(POR,L)<29
1 A(POR,L)<23
1 A(POR,L)<16
1 A(POR,K)>100
1 A(POR,K)=8
1 A(POR,K)=29
1 A(POR,K)=22
1 A(POR,K)=15
1 A(POR,K)=1
1 A(POR,K)<29
1 A(POR,K)+HOD>32
1 A(POR,K)+HOD=A(POR,L)
1 A(L,VP)=VF
1 A(IND,L)>0
1 A(GPR,VPR)=VF
1 A(GPR,VPR)=0
1 A(GP-L,VP-L)
1 A(GP-L,VP+L)
1 A(GP,L)=VF
1 A(GP+L,VP-L)=VF
1 A(GP+L,VP-L)
1 A(GP+L,VP+L)=VF
1 A(GP+L,VP+L)
1 A(G,V)=N(K)
1 A(FL,M)=B(M)
1 A(FL,K)=INF
1 A$="TURN":
1 A$="SPACE"
1 A$(g,v)="o"
1 A$(Z)=A$(X):
1 @p3 C
1 @```````BBC ' P
1 @@@@@@@@F(
1 >INS B
1 >><,8:800:<>
1 >(S+A(POR,5
1 =============================== specialxnye prawila
1 =============================== pods~et o~kow
1 =============================== hod kompx`tera
1 =,(M(J,I)*3
1 <mb.cd CX
1 ;k$(v,on);"N"
1 ;j$(m,a(m)):
1 ;j$(l,w);" ";:
1 ;C;"=";I(I);",";S;" "
1 ;;88::8< <88888;;
1 ;;88::8< """"""""" 999999999 99999999999999999999999999999999999999999
1 ;"zapre{en."
1 ;"wzqto ";S;" ":
1 ;"wyigry{-";
1 ;"wybirajte :"
1 ;"wybiraem wariant :";
1 ;"wy listaete polq 1 i 2"
1 ;"wwerh -"
1 ;"wstawxte";
1 ;"wsego = ";S:
1 ;"wsego ";SUM;" ":
1 ;"wprawo -"
1 ;"wosxmi okruva`{ih";
1 ;"wniz -"
1 ;"wlewo -"
1 ;"without penalty ";
1 ;"with ";y;" overtrick";"s"
1 ;"w ~etyreh kletkah."
1 ;"w a } e i m q ?"
1 ;"uslowiq igry?"
1 ;"ukazatelx na nuvnyj wopros ";
1 ;"u wseh ";
1 ;"sygraem e}e? (1-da,0-net) "
1 ;"stawke !"
1 ;"skolxko monet w bank ? - "
1 ;"skolxko igrokow ?";
1 ;"s o s t a w";
1 ;"rezulxtaty igry :"
1 ;"razre}en.";
1 ;"ramka -"
1 ;"q duma`";
1 ;"proigry{":
1 ;"predlaga` wybratx";
1 ;"postawxte w kavdoj iz karto~ek";
1 ;"porqdok pods~eta min";
1 ;"polxzuqsx cifrowymi klawi{ami,";
1 ;"points":
1 ;"podovdite...":
1 ;"podovdite..."
1 ;"podovdite, poka q";
1 ;"po odnoj";
1 ;"perwym wywodit fi}ku ";N$(POR)
1 ;"perwym wywodit fi}ku ";N$(IND)
1 ;"odno iz dwuh polej."
1 ;"obzor -"
1 ;"nomer fi}ki ?"
1 ;"neskolxko to~ek";
1 ;"na~inaet otkryw{ij mlad{u` kartu":
1 ;"navimaq l`bu` klawi}u,";
1 ;"koli~estwo min";
1 ;"klawi}i uprawleniq:"
1 ;"klawi{i uprawleniq:"
1 ;"izmenilsq li";
1 ;"igra`}ih - ";U
1 ;"i g r o k o w ?"
1 ;"i g r a ` t :"
1 ;"hotite izmenitx";
1 ;"geomanti~eskie woprosy:"
1 ;"for hand no.";h:
1 ;"exactly"
1 ;"estx e}e woprosy ?"
1 ;"esli dostato~no - ";
1 ;"erased. To restart";
1 ;"dlq ustanowki:";
1 ;"disketu!":
1 ;"deals and sorts the cards"''
1 ;"dalx{e - l`baq klawi{a."
1 ;"da-1 net-0"
1 ;"d i s k e t u !":
1 ;"d i s k e t u !"
1 ;"You have left West with a ";a(o);'" card suit, which is too long."'''" Enter entire hand again.":
1 ;"Variable no trump ?",,,,,
1 ;"VICTORY!"
1 ;"Uxbridge"'
1 ;"UP - ?"
1 ;"Strong (15-17) or",,,
1 ;"South's hands"''
1 ;"Slam bid and made"
1 ;"RIGHT - ?"
1 ;"RESTART - ";
1 ;"R - RESTART":
1 ;"Please wait a moment":
1 ;"Please wait a few moments"''
1 ;"PUT IN A DISKETTE."
1 ;"Middx UB8 2RD"
1 ;"LEVEL - 1,2,3 ?"
1 ;"LEFT - ?"
1 ;"FIRE - ?"
1 ;"Enter his hand again. ":
1 ;"ENTER.":
1 ;"ENTER";:
1 ;"ENTER NAMES AND RESULTS:"
1 ;"ENTER - zakon~itx prosmotr."
1 ;"ENTER - nowaq"
1 ;"E N T E R."
1 ;"DOWN - ?"
1 ;"CP Software";
1 ;"Bidding";
1 ;"? ? ? ?"
1 ;"<1 OR 2>":
1 ;"4 igrok: ";
1 ;"4 hands. Otherwise press 2. ":
1 ;"4 - to see all 4 hands":
1 ;"3. kombi.";
1 ;"3 igrok: ";
1 ;"2. pauk.";
1 ;"2, Glebe Road";
1 ;"2 igrok: ";
1 ;"2 - obgon fi}ek ";
1 ;"1. krest.";
1 ;"1 or 2?";
1 ;"1 igrok: ";
1 ;"1 - obgon fi}ek ";
1 ;"1 - da / 0 - net"
1 ;"1 - PLaY";
1 ;"1 2 3 4"
1 ;"/ ne bolee 50 /":
1 ;"--------------"
1 ;"-------"'':
1 ;"- B to rebid it first",:
1 ;"(warianty 1 ili 2.)"
1 ;"(honours scored)"
1 ;"(Q-wwerh,A-wniz)";
1 ;"(10 - 50)"
1 ;"(1-da, 0-net)"
1 ;"(1-da 0-net)"
1 ;" swedeniq o minah";
1 ;" pozwolqet izmenqtx";
1 ;" kletkah."
1 ;" by ";o$(de);
1 ;" Y OR N "
1 ;" Y / N "
1 ;" SAVE THE RESULTS ? ";
1 ;" SAVE THE RESULTS ";
1 ;" S C O R E - ";SCP ;" : ";SCS;" ":
1 ;" PRESS ANY KEY "
1 ;" KLONDIKE. V.MINEVSKIY. 1995.":
1 ;" E - wyhod "
1 ;" - wybor polq"
1 ;" ";j$(o,x);:
1 ;" nali~ie min wo wseh";
1 ;" kubik "
1 ;" i delajte swoj wybor klawi{ej ";
1 ;" / 1 - 4 /"
1 ;" LEVEL - ";LEV;" "
1 ;" ";
1 ;" ":
1 ;" "
1 ;" ":
1 ;" ";
1 ; "kogda wam nado wybratx kartu, pereme}ajte ukazatelx kla- wi{ej ";
1 :x x xc8Vx`x x
1 ::::::::::::::::::::::::7
1 ::::::::::::::::::::::::2
1 ::::::::::::::::::::::::1
1 ::::::::::::::::::::::::0
1 ::::::::::::::::::::::::/
1 ::::::::::::::::::::::::.
1 ::::::::::::::::::::::::-
1 ::::::::::::::::::::::::+
1 ::::::::::::::::::::::::$6
1 ::::::::::::::::::::::::#Y
1 ::::::::::::::::::::::::"|
1 ::::::::::::::::::::::::!
1 ::::::::::::::::::::::::
1 ::::::::::::::8:::::::::,
1 ::::::::::::::8:::::::::*
1 ::::::::::::::8:::::::::%
1 ::::::::::::::8:::::::::
1 :::::::::::::88:::::::::&
1 :::::::::::::88::88:::::4]
1 :::::::::::::88::88:::::3
1 :::::::::::::88::88:::::(R
1 :::::::::::::88::88:::::'u
1 :::::::::::::88::88:::::
1 :::::88:::::::::::::::::)/
1 :.SPN=V+55
1 :.SPN=KHV-7
1 :.SPN=K(K,P(
1 :.SPN=(V+39
1 :.SPN=(KHV+2
1 :.ROW=M:.COL=K*
1 :.ROW=(K*4
1 :.ROW=((K-1
1 :.COL=VAP:.SPN=(1
1 :.COL=E:.SPN=38
1 :.COL=(MV-
1 :.COL=(A(4
1 :**238323()(
1 :**233323()(
1 :"""""""""#
1 98765432","
1 987652
1 9876 E
1 975
1 9
1 8888;;;;(((((((((((((((((;;888888888;;;;(((((((((((((((((;;888888888;;;((((((((((((((((((888888888888;;))))))))))))))))))))88888((888;;8888888888888888888888888((888;88888888888888888888888888((888;88888888888888888888888888((888888888888888888888888888888((888888888888888888888888888888888888800008(((((888088888888888888888000008(((((888088888888888888888000008(((((888088888888888888880000008(((((888088888888888888800000008888888880288888888888888000000000000000002088808888888800000000000000002222000008888888000000000000000022220000008888800000088888888888888880000088880000008888888888888888880000088800000888888888888888888880000080000000000000000000000000000000000000000000000000000000000000000
1 888888888888:8:8:888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 888888888888888899999999999999998888888888888888999999999999999988888888888888889999999999999999888888888888888899999999999999998888888888888888999999999999999988888888888888889999999999999999888888888888888899999999999999998888888888888888999999999999999888888888888888889999999889999998888888888888888899999998899989988888888888888888999999988888899888888888888888889999998888888998888888888888888899999988888889988888888888888888999999888888899888888888888888888888888888888998888888888888888888888888888889988888888888888888888888888888899988888888888888888888888888888999888888888888888888888888888899998888888888888888888888888889999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
1 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 888888888888888888888
1 8888888888((((((((
1 88888++88++88++88++888886j
1 88888(((((8888((((*****(((((888888888(((((((((((((***********(((((((((((((((((((((*******************************(*******************************
1 84 6
1 8.fnt C
1 8,c C|
1 73 5
1 73
1 7
1 6sf2mo C
1 63744,1808
1 5UUUUUUUUUUUUUUUUUUUUW
1 54191,2384
1 51435431134251353253322134812452542232147133166331412345
1 50000,3219
1 50000,1485
1 49638,6937
1 42918,13657
1 3333UUU"#39
1 3333*(w$(t+5
1 2MOB B
1 22_28 IZ R()otkrrytx***
1 1SPR21 C
1 0``<ff<fff<<fff>
1 0003000300030003
1 000000000008(((
1 0000000((((
1 .SPN=RD:.PTBL
1 .SPN=K(SP,K):.PTBL:
1 .SPN=K(MSP,K):.PTBL:
1 .ROW=SS:.SPN=SPR:.PTBL
1 .ROW=SS:.COL=E:.SPN=38
1 .ROW=SS:.COL=(VP*2
1 .ROW=RO+K+
1 .ROW=P4+P3
1 .ROW=MP4:.COL=(MV-
1 .ROW=GAP:.COL=VAP
1 .ROW=(P4+P3):
1 .ROW=(GAP-2
1 .21scr C
1 -st*(o>fo)
1 -min)-step-1
1 -l,atp;"X"
1 -a(ol)-a(or))*(10
1 -SS));(SV-48
1 -(t>fo);r;
1 ,ze;l$;l$:
1 ,ze;"to play a Weak (12-14),",,,
1 ,ze;"Press - P to replay the hand";
1 ,ze;"N/S E/W";
1 ,ze;"A - to play the cards from all 4 hands ?",,,,"B - to let the computer play the defender's cards ?",,,,
1 ,ze;"1 - to see all four hands ?",,,"2 - to see merely those of Northand South ?",,,,,,
1 ,ze;"1 - N/S (your side) always to have more points than E/W ?",,,"2 - N/S usually (but not always) to have more points than E/W ?",,,"3 - randomly dealt hands ?",,,
1 ,ze;" You have given ";b$(k,
1 ,ze;" ****** ";
1 ,ze;" ";g;
1 ,ze,,,,"C - to bid and play the hands ?",,,"D - merely to play the cards ?",,,,,,,,,,,
1 ,tw;"2 - to see only North's and";
1 ,on;"N/S E/W":
1 ,on;" Do you want:-",,,,,,"A - the computer to deal the"," cards ? or",,,,"B - to input a deal of your own choosing ?",,,,,,
1 ,h,h,"NESW","Vul:none",p$,"AKQJT","SHDCN","
1 ,at;min-minR
1 ,VA;" "
1 ,U):.COL=A(4
1 ,SP)=R(Z):
1 ,SP)=(P3+MP3):
1 ,SP))=R(S-
1 ,S;" ";CR;" ";
1 ,NAT;F$(N(L))
1 ,K):.PTBL:
1 ,K)):.PTBL
1 +tw*gg))+(" E/W "+
1 +fo*(t>fo)):
1 +a+tw*gg):
1 +(NOMER*16
1 *os-x/tw,124
1 *M8):.PTBL
1 **>*- *+
1 **** kempston **
1 *** wywodim mastx
1 *** wybiraem kartu
1 *** wybiraem dlinnu`
1 ** perewod nomera *****
1 ** pazdaem karty ******
1 ** okno tuzow ********
1 ** matriza **
1 ** R(52) koloda ******
1 *)))()()()()()()()()()(
1 *(y>fo)>96
1 *(u=t))*(u=t
1 *(t>fo)+g(3
1 *(t>fo))*(f-(f<fo)):
1 *(k=tw);"?"
1 *(k=tw)-10
1 *(f-tw)+(tv*y
1 *(f-tw)*(on+g(a+8
1 *(e$="1"):
1 *(de=tw)-5
1 *(de=tw)+5
1 *(de=on),13
1 *(de=fo);"
1 )>j$(or,y)
1 )>h$(tw-a,3
1 )=x+tw-fo*(x>tw):
1 )=x+on-fo*(x
1 )=j$(ol,x)+j$(op,x)
1 )=j$(o,x)+v$(x,y)+j$(op,x)
1 )=fo*k-fo+x:
1 )="X")+("x"
1 )=" 2. i g r y. "
1 )=" 1. opisanie igr. ":
1 )=" "
1 );M$(l,k);
1 );F$(A(G,V))
1 );" ";Y(4
1 );" ";Y(3
1 );" ";Y(2
1 );" ";Y(1
1 ):.SPN=X:.PTBL:
1 ):.SPN=R(Z):.PTBL:
1 ):.SPN=GP:.PTBL
1 ):.SPN=(M(J,I)+1
1 ):.ROW=P4+K-
1 ):.ROW=G+K:
1 ):.ROW=(GPER-
1 ):.COL=(L*2
1 ):.COL=(I*4
1 ):.COL=((L-1
1 )-tw*(y=on):
1 )-tw*(k=on):
1 )-tw*(k=on),15
1 )-g(tw)-g(fo)-g(6
1 ),X1;Y$;" ":
1 ),X1;" ";Y$:
1 )*ST-ST):.SPN=R(K+
1 )*ST):.ROW=
1 ));"'s card ";
1 ));" ";(p);" cards.";
1 ))+("E/W game"
1 ))+("2134"
1 ))+(" N/S "+
1 ))+"1243":
1 )));" to play. Enter card ";
1 )));" to play again";
1 )))()()()()()()()()()(
1 (v$(x,y)>a$(y)
1 (r+(f$(tw)>a$(tw))+(d(k)>9
1 (ostz/d)-(ostz/d)
1 (on+(z=t)+(j>10.4
1 (on+(j>14.4
1 (k$(b-tw)>"E"
1 (j$(or,x)=e$(fo)
1 (j$(op,y)>j$(or)
1 (j$(op,tw)>"
1 (j$(op)<j$(or)
1 (j$(op)<j$(ol,y)
1 (j$(op)<e$(t)
1 (j$(op)<a$(y)
1 (j$(ol,y)=e$(fo)
1 (j$(ol)<e$(y)
1 (j$(ol)<e$(fo)
1 (j$(o,y)>a$(y)
1 (j$(o,x)=e$(x))
1 (j$(o,w)>a$(y)
1 (j$(o,on)=e$(on)
1 (j$(o)<j$(or)
1 (j$(m)<v$(3
1 (gat+Gz),(vat+Vz);"X"
1 (c-m),(op+l);"
1 (c+tw))/fo:
1 (a=(j-g+r>7
1 (a(o)+a(op)>y+a(or)+a(ol)
1 (Y+K),X1;"
1 (X-T(GPER)
1 (T(N)-C(J))
1 (SUM-I(X))=
1 (P.x@x x@x`x`x
1 (I+L)>(P-1
1 (I(X)+I(Y))=
1 (GAS,VAS+M)
1 (GAP,VAP)=
1 (D(I)+D(J))=
1 (A(POR,K)+HOD)>(P+3
1 ((v$(x,y)>j$(ol,y)
1 ((a=(j-g+r
1 ((P4+P3),(V-
1 ((((((((((((((((((((((((00000000((((((((((((((((((((((((00022200((((((((((((((((((((((((00022222***(((((((((((((((((((((00022222***((((((((((((((((8((((00022222(((((((((((((((((88888((00022222(((((((((((((((((((8((((00002220(((((((((((((((((((8((((00002220(((((((((((((((((((8((((00000000(((((((((((((((((((88((((0000000(((((((((((((((((((8((((((000000(((((((((((((((((8888((((((00000(((((((((((((((888888888(((((((((((((((((((((888888888888(((((((((((((((((((88888888888888((((((((((((((((88888888888888888((((((((((((((8888888888888888888(((((((((((8888888888888888888888((((((((((8888888888888888888888(((((((((((((8888
1 ((((((((((((((((
1 ($$D$'kkUUUUUUU
1 ''''"This routine was written by F.A.Vachha and is included by kind permission of:-"''
1 ''"Press"''" R - to review last hand"''" N - to go on to next hand"''" O - for list of options"
1 %*21 B
1 $bridge BX
1 $(D$D$$$$$$$$$%L
1 $(D$$$$$$$$$$$$%}$
1 $$(D$$$$$$$$$$$$$|$&
1 $$$}UUUUUUUUUUUUUUUUUUUU\$$$%U$$$$$$%
1 $$$($($$$$$$$$$$
1 $$$$uUUUUUUUUUUUUUUUUd$$$$
1 $$$$$U$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
1 $$$$$.$&|$T
1 $$$$$-$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
1 $ kubika *************
1 "wyzdoroweet li bolxnoj ili bolxnaq, ili q ?","~ego mne opasatxsq ?","s~astliw li budet dlq menq nastupa`}ij god ?","~to zna~it |tot son ?"
1 "ute{itelxnoe li budet izwestie ?","swidimsq li my kogda-nibudx s |tim ~elowekom ?","najdu li q poterqnnoe ili ukradennoe ?"
1 "s~astliwo li budet predpolagaemoe supruvestwo ?","~to za suprug (ili supruga) budet u menq ?","syn ili do~x roditsq u menq ?"
1 "starik","molodec","`nec","ded"
1 "sekans-";S;
1 "pr40/50R"
1 "pary -";P;" ";
1 "ispolnitsq li moe velanie ?","budet li tolk w moem dele ?","budet li mne bary{ ot |togo ?"
1 "iskrenna li druvba ko mne |togo ~eloweka ?","blagopolu~no li q s'ezvu, ehatx mne ili net ?","l`bit li menq |tot ~elowek ?"
1 "fle{x -";FL;" ";
1 "ego blagorodie -1"
1 "br.scr C0u
1 "b""""""""""""""""""""""""""#
1 "Your bid? ";
1 "You have entered the same card twice. Enter suit again. ";
1 "SCORE? - ";M
1 "NAME? -";
1 "Maximum holding in one suit is 8cards. Enter suit again. ";
1 "Enter declarer ";"(N or S only) "
1 "Enter contract ";("(which need not be the same as before) "
1 "Enter ";(b$(k,
1 "Bridge2 C
1 "99")-(S(ZX)>
1 "9";"s~et:";
1 "9";"povalujsta,";
1 "9");S(ZX):
1 "8";"wy : ";G(MAN):
1 "8";"ZX : ";G(ZX)
1 "8";"YDERN\_ ZARYD ."
1 "8";"SPOSOB STREL~B\"
1 "8";"LEVEL ( 1,2,3 )"
1 "8";" "
1 "8":.SPN=R(S-
1 "8":.SPN=R(S):.PTBL:
1 "8":.PTBL:
1 "7";"________":
1 "7";"T E P E R ~ V \"
1 "7";" q gotow ":
1 "7";" "
1 "7":.SETV:.CLSV:.COL=
1 "6";" "
1 "6":.LEN=ST:
1 "54":.PTBL:.ROW=(GPER-
1 "54":.PTBL
1 "53":.PTBL
1 "53"-X))+X):
1 "5";"tasu` kolodu":
1 "5";"snesu 2 karty":
1 "5";"p o d o v d i t e.":
1 "5";"2.UKAZ\VAY BUKVU-CIFRU"
1 "5";"1.PEREMEWAY KURSOR";
1 "5":.SETV:.CLSV:
1 "45":.ROW=
1 "44600":.POKE
1 "4";" VAQ XOD "
1 "4";" P O B E D A "
1 "4";" P O D O J D I T E"
1 "4":.SPN=R(Z):.PTBL:
1 "4":.SETV:.LEN=((SKOL-K)*ST+
1 "4":.SETV:.CLSV:.COL=
1 "4":.ROW=P4:.SPN=P1:.PTBL:
1 "4":.ROW=(P(
1 "4",SP)=(P(
1 "4",SP):.COL=(V-
1 "4",MSP)=(P(
1 "4",K)=(P(
1 "4",K)=(K-
1 "4",K):.COL=(K*
1 "4"):.SPN=R(S-
1 "4"):.SPN=K(K,L):.PTBL
1 "4"),X1;" ";X$:
1 "31"-(S(ZX)>
1 "3";"wybirajte wariant igry:"
1 "28";M$(X):
1 "28"-l;"^";
1 "28"):.PTBL:
1 "27"+SKOL):
1 "27"):.PTBL
1 "25";S(MAN):
1 "25";"wy ";
1 "24":.LEN=
1 "22":.LEN=
1 "2":.SPN=SP:.ROW=G:.PWBL:
1 "2",SP)=R(Z):
1 "2",SP)=R(S-
1 "2",SP)=P1:
1 "2",SP)=MP2:
1 "2",SP)=K(SP,(P3-
1 "2",MSP)=X:
1 "2",K)=R(Z):
1 "2",K)=R(S):
1 "2"*D(I))<
1 "2")=A(T(X+
1 "2")=A$(T(X+
1 "2"):.PTBL:
1 "2"),X1;" ";
1 "18":.SPN=
1 "18":.HGT=
1 "18":.COL=VKO:.SPN=R(K+
1 "18",op;ostz
1 "18",op;ostp
1 "17"+l;"^";
1 "15-tx -";F;" ";
1 "15";"-";k
1 "15";" RESTART - Y / N ":
1 "15";" ":
1 "15":.SPN=
1 "14"-l;"^"
1 "13":.HGT=
1 "13"*(GPER-
1 "12";"KLAVIQI";
1 "12";" O ' KEY ! "
1 "12":.SPN=R(S-
1 "12":.ROW=P4:
1 "12":.ROW=P4+K-
1 "12":.HGT=
1 "11";"UPRAVLENIY:"
1 "11";"UP - Q"
1 "11";"RIGHT - P"
1 "11";"LEFT - O"
1 "11";"FIRE - M"
1 "11";"EXIT - R"
1 "11";"DOWN - A"
1 "11":.HGT=
1 "10";" SPACE, ENTER ";
1 "10";" R - RESTART. ":
1 "10";" R - RESTART. "
1 "10";" PLEASE WAIT! ":
1 "10";" KEYBOARD - 1 ":
1 "10";" KEY CONTROL: ";
1 "10";" KEMPSTON JOY ";
1 "10";" KEMPSTON - 2 "
1 "10";" FIRE + LEFT, ";
1 "10";" Q, A, O, P, ";
1 "10";" OR ENTER ";
1 "10";" ":
1 "1":.SETV:.CLSV:.ROW=
1 ".05",(SP*
1 ".02",K*L:
1 ",e$,g$,e$,g$,e$,g$,"
1 ","North5","East 4","South5","West 4"
1 "**233323()(
1 ")-tw*(e$="
1 ")+(e$(tw)
1 ""UUUUUUUUUUUU]UuU
1 ""UUUUUUUUUUUU]U
1 """$"*""(""""b
1 """$""""""""e$
1 """".""""#
1 """""z"""""?
1 """""""":2
1 """""""""*
1 """"""""""7
1 """"""""""'
1 """"""""""&
1 """"""""""#
1 """""""""""*
1 """"""""""""7
1 """"""""""""""""""""""""'.""#
1 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
1 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
1 """""""""""""""""""""""""""
1 " defeated";
1 " ";j$(y+x,w);:
1 wybor hoda **********
1 nadevna dlq perwogo hoda '4'.w otwet protiwnik ne movet sde-latx ' 15 . on, kone~no, movetsdelatx 'paru', no protiw parza}ity bytx ne movet.
1 R.Wheen":
1 432123456789
1 ***===***)(
1 **********************
1 ********************
1 ***(88(**)(
1 *** estx li hod
1 *(((***(*)(
1 *(((**((*)(
1 \ta igra otnositsq k tipu nas-tolxnyh igr, kotorye trebu`t so-sredoto~ennosti, wnimatelxnostii to~nosti w dejstwiqh. i abso-l`tno protiwopokazana l`baq pos-pe{nostx : pomnite dewiz - sapero{nbaetsq odin raz... bolee podrobnoe opisanie \tojigry prisutstwuet w samoj igre.zdesx movno skazatx wot o ~em.ot wybora sposoba raboty minois-katelq zawisit slovnostx igry.samyj legkij - kombi, zdesx po~-ti wsegda dostigaetsq pobednyjrezulxtat, hotq polnoj garantiinet. ostalxnye sposoby wynudqtdowolxno ~asto pribegatx k wynu-vdennomu ugadywani`. i daj wam bog s~astxq.
1 PassPassPass4
1 PassPassPass
1 uprawlenie ukazatelem : 1. klawi{i Q - wwerh O - wlewo A - wniz P - wprawo SPACE - wybor karty ili stolbcadlq perewoda w osnownoe pole,oni otme~a`sq drugim cwetom. ENTER - perewod odino~noj kartyna pole tuzow. 2. kempston - dvojstik wybor naprawleniq - oby~nyj.'ogonx' - wybor karty ili stolb-ca dlq perewoda w osnownoe pole.'ogonx + wlewo' - perewod na po-le tuzow. kartu pri perewode na pole tuzowne otme~atx cwetom !
1 !!!!!!!!hhhhhhiiiiiiiihhhhhhiiiiiiiihhhhhhiiiiiiiihhhhhhiiiiiiiipppppppppppppphhhhhhhhhhhhhh)<
1 "kribedv - igra dlq dwuh igrokow.kavdyj polu~aet po {estx kart,iz kotoryh dolven dwe snesti,obrazuq tretx` ruku, nazywaemu`kribom. krib s~itaetsq w polxzusdat~ika. iz kolody wskrywaetsqkarta,prinadleva}aq odnowremennowsem trem rukam - starter." :
1 "wo wremq igry wy uwidite, kak zanekotorye kombinacii kart na~is-lq`tsq o~ki." :
1 "tuzy oceniwa`sq w odno o~ko. wse figury - w desqtx o~kow. ostalxnye - po nominalu." :
1 "polu~ennye o~ki otme~a`sq na ig-rowoj doske pereme}eniem koly{-kow. pobedit tot, kto perwyj na-beret 121 o~ko.":
1 M
1 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< <::::8888888:8888888888888888< <::::8888888:8888888888888888< <:::88888999:8888899988888888< <:::8889999988888899999988888< <8888889999988888899999898888< <8889999999988888899999999888< <8899999999988888899999999988< <8999998999888888889999999998< <8999999999888888:89999999998< <8899999999888888:89989999988< <8889999999888888889999999888< <88889999;;;;;;;;;;;;99998888< <88889999;;;;;;;;;;;;99998888< <8888899;;;;######;;;;9988888< <:8:888;;;;;## ##;;;;;88::::< <888888;;;;# ##;;;;88::::< <88888;;;;;# #;;;;;8::::< <88888;;;;;# #;;
1
1
1